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INTRODUCTION 


"APL Special" is an auxiliary function library based on the 
"Special" workspace of The Finnish AFL Association FinnAPL. 
The 101 most important functions in this workspace are 
documented here. In accordance with the widely accepted 
standards, the last letter of the name of each function is 
underlined. Some other alterations have been made on the 
functions (of the old versions of the workspace Special). 
However, none of these alterations have affected the 
operations of the functions. 


Each function documentation contains a few examples which 
give some ideas in regard to the use of the functions. The 
examples are laid out as they can be seen on the terminal. 


The Auxiliary Functions are designed to be extensions of AFL. 
primitives. These functions may be more effective than the 
original primitives, or they may perpetrate more complex 
tasks. In case of dyadic functions, the relationship between 
the left and right argument is usually the same as for the 
primitives. The functions whose results depend on the 
setting of system variable Index Origin will be noted 
separately. 


The function descriptions are given in alphabetic order 
Within each group: 
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Name: Ob - Arithmetic progression 
Syntaxe Zenpg X 


Jescription! 
X* Numeric vector of three elements 
2: Arithmetic progression from XL13 to XC21 step XL 32. 


In absence of the third element, the default value 
is either "1 or i, 


Lë 


Any number of elements is allowed in the argument 
but only the three first ones are taken into account. 


Example: 
AP 212 1.5 
2 3.5 5 6.5 8 9.5 11 
AP ó 2 
6% 43 2 


v Zen X;,E 
[1] AaR8ARITHMETIC PROGRESSION 
[2] aFROM Xr1] TO Xr2] STEP X[3] 
[3] | Zeta 90 -ZXDIO00 + ZX A I4LESZCI1T24X, XEC--/24X 
[4] 85840731 11.52 
v 
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Name? AXIS - Horizontal axis indicating column positions 


syntax? ZeAXI§ X 


K+ Non-negutive integer 

2: Matrix of horizontal length X. Indicates the 
positions of columns in a horizontal axis 
running from 1 to X(QI0=1) or O to X-1 


Can be used in written documents etc when it is 
necessary to locate the positions of certain 
colums. The result is origin dependent. 


PAGEWLUTHES 1 

AXIS PAGEWIDTH 
0000000001111111111222222222233333333334444444444555 
1234567890123456789012345678901234567809012345678901 

[II0€-0 

AXIS 12 


000000000011 
0123453678901 


v Ze-AXIS X 
[L1] aaHORIZONTAL AXIS INDICATING COLUMN POSITIONS 
[2] aFROM [IIO TO X-«[JIO-1 
[3] | Ze 1 0 FCCLFL1LO@X) PLO TIX 
[4] a840530 09,38 
v 
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Namet ET ~ Test if X is between the limits of Y 


syntax? Zex BI Y 


l'escription: 
X? Numeric array 
Vë 


Two-element vector giving the lower and upper 
Limits of the elements of X 

Ze Logical array indicating which elements of X are 
between "III and YL233. Values equal to YC1] or 
YL.23 will be counted within the limits. 


Example: 


C 
fun 
fund 


v Zex BT Y 

[1] aTEST IF X IS BETWEEN THE LIMITS OF Y 
[2]. ZeQOO1TY)^X£71^Y 

[3] a840530 06.17 


APL, Special ~ TMT-Team Oy 


Ss 


Name: QROUND - Rounds Y to X decimals so that (+/Z)= X 
ROUND */Y 


Syntax: Zex DROUNIO Y 


Xt Integer 

Y? Numeric array 

£t Argument Y with its elements rounded to X decimals 
s0 that the sum of rounded elements equals to the 
result of rounding the sum of original elements. 
A negative left argument rounds the elements of Y 
to 1E" X. 


7 2T2 DROUND 10.102 10.103 10.109 10.102 
10.10 10.11 310.11 10.10 
“3 DROUNID []€3 251200 3400 7100 5200 12500 100 
1200 3400 
/100 5200 
12500 100 
1000 4000 
7/7000 5000 
13000 d 


v ZEX DROUND YseFstsegs 

[1] aROUNIIG Y TO X DECIMALS SO THAT ¢€4+/7)=%x HOUND + 
| /Á/ Y 

L2] lie py 
[3] SeLO. D tFCLOXXOXxt/Ye,Y 
[41 FeS-t/2eL0. S ECYx10xX 
L5] ICFP^4Z-E 
L6] ZC 0 ]¢ZC1 +xF 
[7] Ze€lieClOx-X2xZ 
[8] a840801 08.12 

v 
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Namet EPS - X e Y for integers between 10,9999+ 910 


nhax? ZexX EFS Y 


X+ Integer scalar or vector with elements between 
nro,9999-«[1r0. 

Y? Same as X 

Z* Logical vector of length X indicating which 
elements of X ore represented in Y. 


This function works like the primitive function Se 
but is more effective. 


Example: 
1000 2000 3000 EFS 2000 100 2000 5000 


v Zex EFS Y 


[1] aX e Y FOR INTEGERS BETWEEN [110,9999-«[]10 
L3] 2€1000050 

LA) ZLY31e1 

[4] |ZezE[X] 

[5] a8840725 08.37 


V 
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Name? EXPND - Expansion vector to expand an array by X 


Xs Non-negative integer vector or scalar 

Y: Non-negative integer vector of length X. 
*/Y e3 length of the axis to be expanded, 

Zi Expansion vector which expands an array with 
fields Y by inserting XLIJ zeroes or blanks 
(according to the type of the array) after field 
of width YEE | 


A vector argument X is extended to conform with Y. 
The function needs the auxiliary function RHQ. 


Example: 
[egez EXPNIB 1 2 
100011000 
Mee 2 39pió 
ENM 
023000 
056000 


1 0 
4 0 


02 5000 
056000 
Bel 3 1 EXPN 2 1 3 
EB 
11010001110 
BxXó Se ATIS BLANK ROUS' 
ADUS BLANK ROWS 
ADDIS BLANK ROWS 


e 


eo coo 


ANTS BLANK ROWS 


AQIS BLANK ROWS 
ALS BLANK ROWS 
AQIS BLANK ROWS 


Gacy C008 0090 0090 otot voco coso 60999 9009 09990 0000 09000 Case ocet e 


v ZeX EXPNI Y 
[1] aaEXFANSION VECTOR TO EXPAND AN ARRAY BY X 
[2] aVECTOR Z INSERTS XLI] ZEROES AFTER FIELD OF Y 
[13 
[3] aANEEDS hn 
[4] Zec Y,EDIO*O.1] X) RHOCGXxeYoe Lo 
[5] a841119 15.09 
v 
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Names FITS ~ Number of characters that fit into space 
without dividing words 


oyntaus* Zex FITS Y 


Jescription:* 


A: Fositive integer 

Yi Character vector 

Zi Number of characters that fit into a space of 
width X so that the words are not divided. The 
character string is given in vector Y. 


Blank works as a separator: 


Examples 

TEXTe'THIS TEXT FITS INTO A GIVEN SFACE-RANGET' 
eTEXT 

40 
(le Aes FITS TEXT 

27 
ASTEXT 

THIS TEXT FITS INTO A GIVEN 


v ZeX FITS YK$L 
[1] aNUMBER OF CHARACTERS THAT FIT INTO SPACE WITHO 
UT DIVIDING WORIS 
[2] ZETA Reel URETAR CLO! b= CXELIOYIZUX4 
[3] n840525 07.40 
V 
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Names IOTA ~ Eu Y for integers between 110, 1999+010 


Syntax?! Zex IOTA1 Y 


oebe 


$ Integer vector with elements between [10,1999+(T0 

; Integer scalar or vector of the same domain 

t Integer scalar or vector of length Y that returns 
those indices of X where the elements of Y are 
found first in X. , | 


This function works like the primitive dyadic 
function  », but is more effective. 


Example: 
30 20 20 40 IOTAL ([ei0xi5 
10 20 30 40 50 SC 


39201245 


ohte 0999 0400 Code 9990 0090 60906 Stee $4909 otto e008 02509 0009 . 


v Zex IOTAL Y 
[1] aX Y FOR INTEGERS BETWEEN []IO,1999-[I10 
[2 Ze 2000 PN LO+X/ PX 
L3] LLX ]eb i. PX 
[4]  Z«ztYJ 
[5] 4840723 10.22 
v 
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Names NCI - Returns 1 if Y can be a single executable 
number 


Syniaus* Zex NGI Y 


Description: 


Ai Uu or i 

Yt: Character string (scalar or vector) 

Zi 1 if Y can be à single executable number, else O. 
If X is 1 the function returns 1 even though Y 
is empty. 

Example: | 
O NC1 ' 1.2E 12 ' 
1 
1 NCI ' 1.2E 12 ' 
1 
O NCI ' ' 
d 
1 NGI ' ' 
1 


Function listing: 
v ZeX NCL Y$;E$; IL $N$P$85$ [I0 
[1] hnaaRETURNS 1 IF Y CAN BE A SINGLE EXECUTABLE NUM 
BER 
[L2] alt X IS 1 Y MAY BE EMPTY 
[3] DnrQgei 
[4] Z€Q 
Lad 4E/O,ZEXAECA/LEY =! ' 
[6] 90XiwZC€w' 'gYeCOYNLO^evNOLC*vLO/Y 
L7] OX ZEA/SNEOVE '0123456789 ' 
[8]  SeYs'-7' 
L9] Feyo',! 
L10] I€c€ ltCECYs'E'211 
[11] Ze CA/NVSVEF VEDA Cev/I IFAS ACL O+/ ISP AC V/IAN) 
[13] eC Cr ZovIleepY)/0 
[13] ZeZarv/ (Te Ltd ve 
[14] ZeZaAcev/1v IVs dacev/ITyPACK/s 2 O ¢+/I4N) 
[15] 0840531 13.44 


V 
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Name: NUM - Test if array X is numeric 


Peto 0000 Zepp 0000 case pe eg C08 9999 5000 6900 


$ Any array 
Zi: Scolar i if X is numeric, else O 


Example: 
NUM 5 6 3p130 
1 
NUM ‘JOT! 
0 


8000 00009 6800 2000 0009 Sede 0000 6006 €e00 oeo 0000 0990 0909 0090 


v ZeNUM X 
[1] aTEST IF ARRAY X IS NUMERIC 
C2) ZEQEONO PX 
[3] a840801 08.49 

o 
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Namet RIOTA2 - Finds X Y by rows for numeric arrays 


syntax? Zex RIOTAL Y 


Description? 


Numeric scalar, vector, or matrix 

Numeric array 

Integer array of shape "liker (1 for a scalar or 
vector Y) showing where in X the corresponding 
rows of Y are found first 


N X 
Oo? 99 92^ 


Where à row of Y is not found in X,the corresponding 
element of the result is assigned a value that 
exceeds the highest existing row number in X by one. 
This function is based on A and =. The result 

is origin dependent. For character arrays there is 
another auxiliary function RIOTAL, 


Example: 


MENG 30112 


M 
i 4 7 10 
2 § 8 11 
3 6 9 12 
Ne(3 4e1 2),0-1]0M 
N 
t e @ D 
i 2 4 2 


1 2 1 2 


A 6 9 12 
2 5 8 11 
L 4 7 10 


M RIOTA2 N 


4 A A 
321 

M RIOTA2 3 6 9 12 
3 
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Soco C680 coot 6096 0000 0500 00009 9009 C206 otoo 9909 ence 


[1] 
[27] 
[3] 
[4] 
LS] 
[6] 
[7] 
[8] 
WA 
[107] 
[117 
WER 
[13] 
[14] 


WR 


seso tote 


v ZeX RIOTA2 Yg;IMiDXiI;PiRXO 
aaFINIS X | Y BY ROWS FOR NUMERIC ARRAYS 
aBASED ON A ANI = 


DXe€pYeCcox/Z" 14RX02,71^*1,RXOCpYO»PY 
DMeeXec72^ 1 1 yex) px 
Fele4uXxLrMo-tnDxxM 

YeCCIATTIXO ,PO*y 

XCCGLTIIMD ,F 4X 

Lev i SUX +01M 

Fex/PF-vi1 


RItIeILACOXLSFPI,YESF DEI] 


3RI[XDIOXSFeF-1 

XeX,L11] Y 

Feilbv/Yx*"19oYext137 

ZOCTLVRXO eC COCL,POSTOLOTO+1S OMI CCL SDM V CFN[IIO, 
Focal 


nR340608 10.47 
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Name RNIM ~ x/X random numbers from YL13J to YL23J in äi 
decimals 


Syntax? Ze€X RNIM Y 


+ Non-negative integer scalar or vector 

$ Numeric scalar or vector of two or three elements 

« Array of shape X returning X/X random numbers 
from YL123 to YL23 in YL31 decimals. The default 
value for YL3] is O. If YL3) is negative, the 
numbers are rounded to 1E" YL3J. 


If Y is à positive scalar, the default value for YC2] 
is 2XY. If Y is o negative scalar, the value is 
zero. 


3 6 RNIM 4 6 3 
4.609 4.983 5.069 4.305 5.812 4.564 
4.059 4.616 4.323 5.599 4.182 4.133 
5.663 4.046 5.047 4.846 4.315 5.569 
6 RNIM O 10000 72 
9900 6100 7300 9600 2200 3600 
10 RNIM 20 
27 20 27 20 37 23 38 38 38 20 


Function Listing: 
v ZexX RNIM Y 
[1] ax/X RANDOM NUMBERS FROM II TO Y[2]1 IN Y[3] n 
ECIMALS 
[2] apd t3 X 
[37] Ze€OGY[Ci11-ZXÜUTZO00*OZC€dO0x-"i1^2YOx?7XplitC]|p-/2*^YOX10X 
"i3^Ye34Y,0 
CA ERCOZTITYO/ÀCZC1Z' 
[51] a840801 10.09 
V 
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Name: RNIMN — X random numbers from normal distribution 
Syntax: ZC€X RNIMN Y 


Description: 
X* Non-negative integer 
Y? Numeric vector 
Z¢ Vector containing X random numbers from normal 
distribution with average VIII and variance YC27 


AVE C10 
VAREL.: 
4 KNIIMN AVE, VAR 
10.75906802 9.709222419 B. 466313745 10.17979441 
VARE CEZ (V= +t/ V PVJ) eVE1000 RNIIMN AVE, VAR 


VAR 
14143265543 
t/r eh 


10.02093234 


Function listing: 


v ZEX RNIMN Y Ciro 
[1] aaX RANDOM NUMBERS FROM NORMAL DISTRIBUTION 
[L2] aAWITH AVERAGE Y[1] AND VARIANCE Y[2] 
[37 nroei 
LA Zele EaR) 90,000001X'TCCCX21X2 051000000 
5] ZeXeuY[l1]tet608CCU2XYUL 210 x@ZL1g])*0.59x% 2 1 o,00 
2X2[L25] 
[6] a840606 11.38 
v 
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Name: ROUND ~ Rounds Y to X decimals 


syntax? Zex ROUNI Y 


Description: 


ee eee gege 


im 
e 
3 


Integer 

Numeric array 

Array Y with its elements rounded to X decimals. 
A negative left argument rounds the elements of Y 
to EX. 


PRO OX 
o> 9 929 


Me? 4e919 
M 
Q 0.693147271806 1.098612289 1.386294361 
14609437912 14791759469 1.945910149  2.079441542 
3 ROUND M 
Q 0.69 1.1 1.39 
1.61 1.79 1.95 2.08 
Ne€1E6xM 
N 
Q 693147.1806 10980612.209 1386294.361 
1609437 .912  1791759.469 1945910.149 2079441.542 
“3 BOUND N 
Q 693000 1099000 1386000 
1609000 1792000 1946000 2079000 


Function listing: 

v Zex ROUND Y 

E11 aROUNIIS Y TO X DECIMALS 

[2] | 9(Xs00/8 

[3]  Ze(10x-X) xLO. S4 Yx10xX 

[4] 90 

[5] StZe_lo.5+y 

[6] a840801 08.59 
v 
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Names TQ - Arithmetic progression from X to Y 


coso e000 0400 0006 0009 otoo Fono cect 9000 9900 6050 


Ai Integer 
Y? Integer | 
Zt Arithmetic progression from X to Y - step 1 or "1 


The function AF may prove useful if progressions of 
various steps are needed. 


7 TO 1 
765432 1 
2 TO 66% 
11 DOMAIN ERROR 
TOL2] Zerax-[IIOxxZ»)t*cxZoxaitiZeY-X 
^ 


Function listing: 
v ZeX TO Y | 
[1] aARITHMETIC PROGRESSION FROM X TO Y 
[2] ZCOX-[IO0XxxZ)*OXZOXA144Z€Y-X 
[3] a840801 09.01 
v 


APL. Special - TMI-Team Oy 


18 
Name ¢ UNIR - Unique-elements of X by upgrade method 


gyttaxss ZeUNIQ X 


X: Numeric array 
Z: Vector consisting of unique duci of X in 
increasing order. 


Example? 
Me? 2 Serplg 


H 11 9 7 10 
6 6 6 ï A 


2 3 1 1 8 
11 9 710 6 

UNIQ M 
12356789 10 11 


v ZeUNTQ X 
[i1] aUNIQUE ELEMENTS OF X BY UPGRADE METHOD 
C22] 3OX Oz PZEX¥4 1 OXeXLAXe, X] 
[35] Z€CGL,1Z227X 
[4] 3a840801 09.02 
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Name: UNT 


i0 


yntoxt Zell 


See e009 9090 9600 0990 0400 essa Cheo géet oeoo 


Example: 


1 0 


3 2 


esso 0000 0009 cote (090 0009 cone es0e 


[1] 


L2] 
L3] 
[L4] 
[5] 
[6] 


[71 


19 


HL - Logical vector indicating the first 
positions of elements 


NIGL X 


Numeric vector | 
Logical vector that contains 1 for each first 
occurrance of an element 


Uc3 324 37 22 
WeUNIGL V 
W 
110100 
W/V 
4 7 


Bese 00090 Seer Cece 


v ZeUNIQL git 
ALOGICAL VECTOR INDICATING THE FIRST FOSITIONS 
OF ELEMENTS 
LECX/pPKIPIL 
3(11052)/0 
X¢eXC Le ax] 
ZECO, CALYX) = 71 4X) 
ZL[T1]e"2 
R840801 09.03 
v 
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Names UNIQ? - Unique elements of vector Y by index method 
syntaxi ZEX UNTQ?2 Y 


Description: 


X* Two-elementi numeric vector. O«XOX[21-XEL11»5:400000 

Yt Numeric vector», whose elements are within the 
limits XL13 < Y < SZT, | 

Z* Vector containing the unique elements of Y in 
increasing order 


The number of elements in the left argument is 
unlimited but only the two first ones are 
significant. This function uses the index method, 
and it is more efficient than the corresponding 
auxiliary function UNIG. 


Example: 
o 10 UNIG2 "1 10 71 712322 
3 INDEX ERROR 
UNIG2ES] ZEY-XE13-11€1 
^ 


^1 10 UNIG2 “1 10 1712 52 2 
“1 2 A 10 


Function Listing? 


v ZeX UNIQ2 YMIO 
[1] aaAUNIQUE ELEMENTS OF VECTOR Y BY INDEX METHOD 
C2] axXf1] < Y 4 XE21 AND O « CXC27-XC1]) < 400000 
[3] mnraei 
[4]  Z*(Q*XE2]-XE112^0 
rs] £LY-XDL1]1-13€1 
[6] | ZeXOXE11-710*Z/7Z 
[7] a840801 09.17 
V 
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Name? XNG ~ Executes character array Y containing A 
numbers | 


Syntax? ZeX XNC Y 


Gëëe Sane 0000 apoo còco cent 9900 cooo Gene sete 


* Fositive integer 
€ Character array 
Zi Integer vector of length X. (Y) is divided into X 
strings, These strings are executed if they are 
integers, and are returned in the corresponding 
elements of Z. Non-integer strings are returned 
in Z as zeroes,. 


This function produces another result in a global 
with those elements corresponding to non-integer 
values of Y set to 1. This function needs the 
auxiliary function IARA. 


SUUM Me'/' LIST 'MATRIX/^2 300/E20399/34 5,0' 
M 

MATRIX 

72 300 

E20399 

34 5.0 


NC M 


XNC 
0 72300 0 0 
t 


RIEGO. 


101 


-x 


3CAM 


MATRIX 
E20399 
34 5.0 
8 XNC M 
0 0 "2 300 0 399 34 0 
| RC 
110012001 


APL Special ~ TMT-Team Oy 


MJ 
r3 


Function listing: 
v ZeX XNC Y;N 
[1] aaEXECUTES CHARACTER ARRAY Y CONTAINING X NUMBE 
RS 
[2] aZEROS NON-NUMERIC VALUES AND SETS CORRESFONDIN 
G RC VALUES TO 1 | 
[3]  aNEEIS DARA 
[4] Zexpo 
[5] | 90x1i0gzpY€*tliABACOX, LCXZpeYOo =X) PY 
[61 | RCewZe^/Ysg'7-0123456789 | 
[7] | RCCREv"NeCONZIO£C(€0 1 YOv.x' 'ODYE;UIOJe'-7 D 
^1iNCet/Ys'-7' 
[8] Yey,' ',(Ze€Z^N^Yv.£' ')#Y 
Cal — YpGs'-'07ZieY]e'7" 
[10] ZeZNivae'o ',Y 
[11] 8840801 10.00 
v 
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en: 
Noe Ae 


Names SNCH - Executes character array Y containing X 
numbers, also decimals 


Syntax? Zex SANLD Y 


Fositive integer 

Character array 

Numeric vector of length X« (pY) is divided into X 
strings, These strings are executed if they org: 
numeric Cnon-exponentiald, and are returned in the 
corresponding elements of Z. Non-numeric strings 
üre set zero. 


MP CK X 
^9 Oo 


oe 


This function produces another result in à global 
variable BC, so that if there are any non-numeric 
strings in Y BO will be set to l1, else to O. 

This function needs the auxiliary function DABA. 


Deche" e  LIST' MATRIXoe72 30091E2399934 5.0! 

MATRIX 

72 300 

1E2399 

34 5.0 
8 XNC M 

O 0 "2 300 0 399 34 0 
8 XNCI M 

0 0 "2 300 O 399 34 5 
hC 

1 


Function listing: 
v Zex XNCI YEN 
[1] aaEXECUTES CHARACTER ARRAY Y CONTAINING X NUMEE 
RS, ALSO DECIMALS 
[2] aZEROS NON-NUMERIC VALUES AND SETS RC 
[3] aNEEIS DARA ` 
[4] BC ZA CYCTIABACX LOX PY EX peY0g' ,7-01234567 
g9 ' 
[5] RCeRCve^/NCGL Y tem! Q^CCXONSS TO COCO 1 VYOvus! °) 
^YESDOIOJS eT 9^1AiN€Ct/Ys'-7' 
[6] Yes! ',OLCZ^N^Yv.x' OY 
[7] "(eieiei 
[8] KA TA: ',Y 
[91 aB40B801 10.06 
V 
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Name: 


ZI 


syntax? Zex ZBIV Y 


Description: 


scolar or 
scolar or 


Numeric 
Numeric 


Ni << 
MA. >o 59 


Ae. 


On 
an 
The ordinary division 


array of 
array of 
of X by 


of) Y is O the (corresponding 


Ò. 


J 53 


Examples: 

Dene2 peró 
2 3 
D 6 


a 
x 
t^ 


[*Ne2 396,125 


+ gw 


BRL 


ZUIV N 
1 
i 


| 
* 4 


Function listing: 
v Zex ZOIV Y 
[1] avAGEVINES X BY Y 
[2] aGIVES O IF Y=0 
[3] Ze(QNZ)XXT-Y4Ze6Yz0 
[4] a841119 15.23 
V 


Jevides X by Y giving O if YQ 


the shape of Y 
the shape of X 
Y. If (un element 
element of) result 
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Example: 


Te 


BE 


i" «ese 


Catenates matrices along the last dimension 


Zex BES Y 


A 
d 


Scalary 
Scalar, 


vector or matrix | 

vector or matrix of type X 

rrays X and Y catenated along the last 
imension. If X and Y are not of correct shapes 


the smaller one is padded with O's or blanks. 


4,31 
e A 
we? 


Li > Gi ho ta 


114. 
215, 
315. 
4| 


6 | 


Li] 
L2] 
[37] 
L4] 
CS] 
Lé 
L7] 
Loi 
[9] 


Me3 6 RNIM 4 6 2 
M 
4.38 4.05 5.12 5 
4.81 5.3 4.21 
4.02 5.47 4.26 
(CLM16) BES M 
4.31 4.38 4.05 
5.49 4.81 5.3 
5.67 4.02 5.47 
0 0 0 
0 0 0 
0 0 0 
(CFCLM146),'1') BES 
31 4.38 4.05 5.12 5 4.23 
49 4.01 5.3 4.21 4.01 4.7 
67 4.02 5.47 4.26 4.36 4.02 


v ZX BES Y;C;RA;RE 
aaCATENATES MATRICES ALONG THE LAST IIIMENSION 
aX ANI Y CAN ALSO BE VECTORS 

Xe(uAe722 1 1 ypX) px 

Y-(RBe724 1 1 ,95Y00Y 

Cei^RA[ RE 

Xe (RAC, 0) ^X 

ve (BBI, 004 Y 

ZeX,Y 

8840801 
v 


13.47 
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BESI - Catenates a vector and à matrix along the 
last dimension 


thax? Zex BESI Y 


X? Scalar, vector or matrix 

Y: Scalar, vector or matrix of type X 

Z: Catenates the arguments along the last 
dimensions. A vector argument is multiplied to 
conform with à matrix argument. 


If both arguments are matrices the left one is 
raveled prior to catenation. 


MECTCLMIS),' $ ' BESA T 5 6 RNIM 4 6 2 
M 
5.05 5.09 5.43 5.54 5.23 5.73 
5.21 4.33 5.66 5.4 5.36 4.18 
414 4.8. 4.15 4.67 5.7 4.82 
4.71 4.99 4.06 5.15 5.86 5.39 
4.74 4.62 5.53 4.89 5.7 5.69 
‘EXAMPLE ' BES1 M 


9*9 $9 99 >? 95 


CD. Gi ho ee 


EXAMPLE 1 $ 5.05 9.09 3.43 3.594 3.23 5.73 
EXAMPLE 2 $ 32.21 4.35 3.66 3-4 3.36 4.18 
EXAMPLE 3 ¢ 5.14 4.8 4.15 4.67 9.7 4.82 
EXAMFLE 4 $ 4.71 4.99 4.06 Jelo Ae Dë eo? 
EXAMPLE 5 IT 4.474 4.62 5.53 4.89 3.7 3.69 


v ZeX BESL Y 
[1] aaCATENATES A VECTOR ANI A MATRIX ALONG THE LAS 
T DIMENSION 
[2] aMULTIPLIES THE VECTOR ARGUMENT TO CONFORM WITH 
THE MATRIX ARGUMENT 


[L3] S0» ippYO/Lil 

[4] Z€CCGLeeYOo, PXIPXE, X), Y 
[3] 30 

[6] Liszex, (Cl eeX) ,pYOpYt*, Y 
[7] a840801 12.56 


V 
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Name? CHNG - Replaces the elements of Y found in XL1$;3 to 
those in XL3j: 


Syntax: Zex CHNG Y 


lescription? 

Two-row matrix 

Array of the same type (character or numeric? 
Array Y with the elements found in XL153 replaced 
by the corresponding elements in XE2$3 


N OX 
+? 49 99 


[eNe10 2TvY"500t*'?3 421000 
127.00 7411.00 336.00 130.00 
“166-00 $20.00 478.00 278.00 
284.00 210.00 127.00 486.00 
eMe2 29'7.-,' 


y 
M CHNG N 
-127,00 . -411,00 336,00 . -150,00 
“166,00  -320,00 478,00 278,00 
284,00 ~210,00 127,00 386,00 
Ne3 Zei 0 0 0 
N l 
100 
010 
0 01 


(2 del 0 B 1) CHNG N 


im pe OO 
oe = 


v ZX CHNG YslighsOros! 
L1] aREPLACES THE ELEMENTS OF Y FOUND IN X13] TO T 
HOSE IN XC23] 
[23] HITO 
[37] Lit py 
[L4] Leslie," 
[3] Lersitex 
Lei YEL/ vel Je XE? DELI] 
[2] Zeller 
[8] a840606 16.37 
e 
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Name t CHNG1 - Replaces XL13 by XL23J in an array Y 


Syntau* Zex CHNGi Y 


Description: 


X: [wo-element vector 

Yt Array of type X 

Zi Array Y with the elements equal to XL13 replaced 
by XL23J 


Example: 


Me 3473 3p? 


X 


Sin, ek ee 
dea dag dioe 
1 2 "1 
A 1 2 


CHNG1 T M 


) 20 fe 
de dee das 
-1 "S 
4o owl. 2 


v ZeX CHNGI Y 
[1] aREPLACES X[1] BY X[2] IN AN ARRAY Y 
[21  ZL(GsleX)/ieZe, Y1e19X 
[3] | ZeteYo ez 
[4] 4840607 10.03 
V 
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Name g DARA —- Moves all blanks in an array X to the end of 
each line 


Syntax: ZenaBó x 


KL Oe o one 


5e 


lescriptiont 

t Character array 

+ Array X with all blanks moved to the end of each 
line 


Me'/'LISI'UN NECESSARY/ BLANKS / 3 , 88' 
M 
UN NECESSARY 
BLANKS 
3 , 88 
ABA M 
UNNECESSARY 
BLANKS 
3,88 


v ZARA XL 
[1] aMOVES ALL BLANKS IN AN ARRAY X TO THE END OF E 
ACH LINE 
[21] Zepx 
[3] Xe (,Lex#' ')/,X 
[4] XeCy CH/7LD oo (IOA T 14220NX 
S] Zeien 
[6] 8840607 10.47 
VM 
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Names UMBA ~ Moves all multiple blanks in an array X to 
the end of each line 


syntans ZenMBÓ X 


Ilescription: 

Xi Character array 

Zi Array X with all multiple and leading blanks moved 
to the end of each line. 


Enample: 
[eMe2 3 20¢' WORDS WORDS ' 
WORDS WORDS 
WORDS WORDS 
WORDS WORDS 


WORDS WORDS 
NOR Di NORD 
WORTIS WORTIS W 
[]JeMernMEA M 
WORTS WORIS 
WORIS NORD 
WORDS WORIS 


WORTS WOhnS 

WORDS WORIS 

WORDS WORKS W 
M 

2 A 20 


Function listing: 


v ZeLMBA X;L 
[1] aMOVES ALL MULTIPLE BLANKS IN AN ARRAY X TO THE 
END OF EACH LINE 
re ACOEPXIS' AX/S PLEX! 
A 1 Lelei ppl JAL) OD vLE: 'EXe' "eh 
d ZeZe PXP C+/L oe CH TO +r 714 8XONC,LO7,X 
] a4840801 11.20 
v 
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Name: DTBÓ ~ Drops trailing blanks from an array X 


àyntass ZemnTRA X 


9909 C600 0099 0990 $009 pobo Foes 2000 apoa 0090 6900 


X? Character array 
¿t Array X with trailing blanks dropped from the 
last axis 


Examples | 
Me'/'LIST'WHY SHOULDA WE/WASTE SEACE 
ellen 

WHY OHOUL D 

WE 

WASTE SPACE 

3 17 
[]eMenTERA M 

WHY SHOULD 

WE 

WASTE SFACE 
PM 

3 11 


Function listing: 


v ZenTBRA X 
[1] alROFS TRAILING BLANKS FROM AN ARRAY X 
[2] ZeCCmppXoar/ Cl PZ AZE, (X= yd) xX 
[3] a840619 12.32 

V 
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Name: 


Syntax: 


Yescript 


Example: 


32 


EQ - Compares character matrix X to vector Y by 
row 


Zex EQ Y 


ion: 


Character matrix Cany array) 

Character scalar or vector 

Logical vector of as many elements as there are 
rows in X. The elements corresponding to the rows 
of X that equal Y are set to 1. Y and à row R are 
considered equal if R^.sCGOpYOLIVeXo^TY. Leading 
blanks of Y are dropped before the comparisons, 


o> 99 9^ 


X may be à non-matrix array, too. In that case the 
function works like the dyadic primitive function t: 


[eMe's'LIST'AóBCo ABCSEFGH9SARBC' 
ABC 
ARC 
iF GH 
ABC 
MEQ "opt" 
l 
M EQ ' ABC! 
1001 
MEQ "or 


M EQ 'EFGHIJKL!' 
0010 


Function listing: 


v ZEX EQ Yslglgngr 
[1] aCOMFARES CHARACT 


D 


| 3L R[ yas ye eX 
] Lel=Xey 
J +0 
] 
l 
] 


ER MATRIX X TO VECTOR Y BY ROW 


LBIZe (Led ppX) po 
Ye(vNYs! 07Y 
]  IeOC;UIOQJs1460/AD 
[0] — IeOCI;Fl^.zYDAPeCeYoL1vex2) Z1 
[91 — ZLIJel 
[10] 8840802 07.46 


V 
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Name: FLEFT - Rotates X so that it prints flushleft 


)yntoxt* ZC€FLEFT X 


llescription: 


H 


X? Character array 
Zz? Array X rotated along the last axis so that it 
prints flushleft. eZ t+ eX, 


Example: 
MEA 14¢' JANET + JOY ; 
M 
JANET + JOY 
JANET + JOY 
JANET + JOY 
JANET + JOY 
FLEFT M 
JANET + JOY 
JANET + JOY 
JOY 
JOY 


L 
-> 
| x 
tor p 


v ZeFLEFT X 
[1] aROTATES X SO THAT IT PRINTS FLUSHLEFT 
[2]  ZeGZ/^ANXx!. 8X 
[3] 4840607 11.39 
V 
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Names FRIGHT - Rotates X so that it prints flushright 
syntax? ZeFREIGHT X 


Description: 

; Character array 

Zt: Array X rotated along the last axis so that it 
prints flushright. peZ t? pX, 


Examples 
Me4 14¢'BILL + GUY 
M 
BILL + GUY 
BILL + GUY 
BILL + GUY 
BILL + G 
FRIGHT ™ 
BILL + GUY 
BILL + GUY 
BILL + GUY 
BILL + G 


Function listing: 
v ZeF RIGHT X NIO | 
[1] aROTATES X SO THAT IT PRINTS FLUSHRIGHT 
L3] nroei 
[37 Zi (Na ex) -Ze iLteX) oX 
L4] a840607 12.01 
V 
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Name? IN - Returns X and gives a global variable M a 
value Y 


syntax? ZeX IN Y 


esoo e9e0 0990 ooto Sede otot vg 9000 9009 0900 


Xt Any array 
Ys: Any array 
£* Argument X 


Global variable M is given a value Y. 

This function is designed to make the use of the 
auxiliary functions REFLACES, REPLACESBR, and 
EFUT more convenient. | 


Example: 
Deve’ JKLMN' REPLACES ' JKLMN' IN' ARCDEFGHI JRLMNOF ' 
ARBCIIEFGHI.JRKRLMNOF 
(2 BGpUDEFUT'V'IN De2 Zei 2 1 2 6 6 


221 
26 6 
ABCIIEvGH 
IviSEHvOP 


40069 €909 5000 opoo 000€ 0409 9900 009€ 90990 9999 «000 9909 9999 9900 9! 


v ZeX IN Y 
[1] aRETURNS X AND GIVES A GLOBAL VARIABLE M A VALU 
E Y 
[2] Mer 
[3] Zex 
[41] a840801 11.34 
v 
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Name! REPLACES ~ 


String X replaces string Y in global 
variable M 


Syntax: ZEX REFLACES Y 


llescription: 


Scalar or vector 

Scalar or vector of type X (character or numeric) 
Global varioble M with strings Y replaced 

by a string X« A string as a whole has to be in 

à same row in ordeF to become replaced. 


N <>< 
99 99 904 


Global variable M can be any array of type X. 
The function expunges M. This function is used 
together with the auxiliary function IN. 


Example: 

NAMESe' 'LIST'MARY MICHEL FLOR ANGIE' 
NAMES 

MARY 

MICHEL. 

FLOR 

ANGIE 
'ELINE' REPLACES 'EL' IN NAMES 

MARY 

MICHELINE 

FLOR 

ANGIE 


v ZEX REFLACES Ym EX TIJ M FIFI FN FOT} AFI 
() 
[1] aSTRING X REPLACES STRING Y IN GLOBAL VARIABLE 
M 
ER grogei 
[3 Tle (X/EX¢ iveZ), iti, pZeM 
[4] JepEx 'M' 
[5] Jecceienp231J-10s1enp(2]-FOeevYo/JecMzsi*Ye, Yo/ vpn 
e d. 
] SOX VOeF Je ple CME deeb Ul i POA. =Y) 
] Le CCP IxaPe (PNG ge, X)-POO+X/DD pl 
] LOU LeJtarPx 7) ti P 1 -aPr 
l MEMEILTENL] 
10] ME,Ie.t"1*iFN]e€COU"NXPUD PAX 
1] Fenp2]*eéFx*/OQIDID112095.-s[J-D[2] 
12] ZeCEX, “iteT eC, TEC CPE) L/P PL), CP-LZFD o 2i(T7 
F»)-L/PF»XM 
[153] a840731 09.43 
V 
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Name? REPLACESER ~ Rows of X replace rows of Y in global 
variable M 


Syntax?! Ze€X REPLACESBR Y 


t Character naci 
t Character matrix containing rows of M. 
There must be ouai number of rows in X and Y. 
>; Global variable M with rows given in Y 
replaced by corresponding rows in SZ, Array M is 
padded with blanks to conform with à row longer 
than the length of M's last axis. 


Global variable M may be any character array. It is 
expunged during the execution of the function. The 
function is commonly used together with the auxiliary 
function IN. This function needs the auxiliary 
functions CHANGE, CHNG1, and LIST. 


[*N-2 3 ën" 'LIST'ARC DEFGHI JK LMNOP' 


L.MNOF 
ABC 
EFGHI 
[€NeC2 20p'o') REFLACESER (2 3e'JK ABC') INN 
DEFGHI 


0000000002020o90202902092020202020 


LMNOF 


$> <> 4) OO > Cd Cb <> <> <P <> <> €) Cb OD <> o 4d 
DEF GHI 

PN 
2 A 24 


APL. Special - TMT-Team Oy 


38 


Function listing: 
v ZeX REFLACESBR Y;l$;I0513 J3K$M$; POSDIO 
[1] aaROUWS OF X REFLACE ROWS OF Y IN GLOBAL VARIARL 
EM 
[2] aX AND Y MUST BE MATRICES 
[3] aNEEUS CHANGE CHNG1 LIST 
[4] proe 
[35] hoe pM 
[6] ICcOgYE:1J1)/veZe,UA^UE11,M 
[71 Wetlex "Hi 
[8] . Je(Z,Re' "CTe et itike "1 se ey ]+.=e' $' CHNG1 Y 
[9]  JeJ=(p N epPoev+.4' ! 
[10] JeJ[KeCGv/ZAD ZvpeTg JT « xa deri 
[11] Ze¢(Z,¢(K#' '9/7Ke,XEJ;$ 2. CHANGE IEK2,POEJI, (X+.# 
SEIN 
[12] Zecc1no),"7i1^epZopzepauri]d LIST Z 
[13] a840801 12.26 
v 
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Name? REFS - Array s by rows 
Syntax? ZeX REFS Y 


00909 SREP ceso 0000 «50^ eneo 0006 e000 0009 otoo 


¢ Array 
Y? Array 
Zs Array s by rows. Array Z is of shape “vex. 
Trailing blanks or O's are ignored, 


ACS 3 Se'ABC DEF ' 
MeO 4e'F A DEF EF 
A | 


BC 
DEF 
AR 


cn 
EF 
ARC 


FA 

DEF 

EF 

F 

A DE 
A REPS M 


oc CH 
Oe O 
Co = 


M REFS f 
11000 


v ZeX REPS YgRA;RB;R 
[1] AARRAY e BY ROWS 
[2] alpZ) = “ivex 
[3] — Xe(R&eC-1Ll pZ)41,Ze eX) eX 
[4]  Ye(RBe(X/7 14REO ,7141,RBCpYO pY 
[5] | ZeC1Z)ev/ZCGCTANVRAD ROAX) =N (RB XI T,ReCTL4RA 


AT 1tT5YOTY 
Co] aB40802 Op. im 


V 
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Name: RIOTAL - Finds X i. Y by rows for character arrays 
synkas ex RIOTAL Y 


I'escription? 


A: Character scalar, vectors; or matrix 

Y: Character array 

Z; Integer array of shape “iveY (1 for a vector or 
scalar Y) consisting of row numbers showing where 
in X the rows of Y are found first. Trailing | 
blanks of the rows of X and Y are neglected. 


Where à row of Y is not found in X the corresponding 
element of the result is assigned a value which 
exceeds the highest existing row number in X by one. 
This function is based on 4 and =. The result 

is origin dependent. For numeric arrays there is 
another auxiliary function RIOTA2. 


Example: 

ITEMSe' 'LIST'TERMINAL PRINTER ASFIRIN' 
ITEMS 

TERMINAL 

PRINTER 

ASF IRIN 
ITEMS RIOTAL 'FRINTER' 

3 
LTEMSIEITEMS,[1.5]' 'LIST'KEYBOARDU PENCIL FHONE' 
ITEMS1 

TERMINAL. 

KEYROARII 


PRINTER 
PENCIL 
GPIRIN 


MHONE 
ITEMS RIOTAÓ1 ITEMS1 
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[1] 
[2 
[3] 
[47] 
[5] 
L6] 
[7 
[8] 
[9] 
[107 


[117] 
[123] 
[137] 
[14] 


[137 


V 


V 


41 


ZEX RIOTAL YeAsUMsUXs ls SPs RXO 


aaFINUS X i Y BY ROWS FOR CHARACTER ARRAYS 
aBASED ON 4 ANI = | 


JXe€gYeccx/" 14RX00,"71^1,RXOcpYO PY 
LMeexec2 1 1 ,0XDpX 

Ae vwPe dd’ CUX LIM) +0X#0M 
YCC(G 4IDO ,FO 4Y 

XeCGGLNIMDO ,FOX 


le€ii^fIX4IM 
Z€7 
Rise lla C256.0AViexl s JI 01] YE gJeCÍVPcZL pen? FACT 
1] 
3Ri[iX0Ccphec-Z»vn 
X¢X,Cril]d Y 


Felev/Ys718YeXEI;] 
Le CTUVRXO PO COCL,POSTOLOTOFLSIMIC CL ^UMOVCOCENUIEO, 
FOLARIN] 


AB4OBO2 08.20 
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Name: UNTQR - Urops multiple rows 
syntax? ZeUNIQR X 


Iescription: 


As Character scalar, vector, or matrix 

Z3 Array X with multiple rows dropped 

To minimize workspace consumption, this function uses 
the auxiliary function RIOTAL instead of the 

inner product. 


Example: 
[]j€Me8 B3e' VAWVOWOUT ' 
VAW 
VOW 
QUI 
VAW 
VOW 
OU 
VAW 
VOW 
UNIQR M 
VAW 
VOW 
QUI 


Function listing: 


v ZeUNIGR X 
LI aaDROFS MULTIFLE ROWS 

21 aNEEDS RIOTAL 

3]  ZeXeOC2^5 i 1 ,eX)eX 

4] Ze C(ritpX)=X RIOTAL X) xX 
5/7 8840801 12.37 

v 
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Nome: UPON - Catenates matrices along the first dimension 


Syntax? Zex UFON Y 


Scalar, vector or matrix 

ocalary vector or matrix of type X 

Argument matrices catenated along the first 
dimensions Scalars and vectors are treated as 
l-element or l-row matrices. The smaller matrix 
is padded with O's or blanks to conform with the 
larger onge, 


NP X 
ee 95^ 99 


MeS 4 RNIM 1 10 2 
M 
Se 4.280 7.13 59.11 
GQ.47 7.77 7.04 6.2 
1.45 8.54 7.88 2.93 
Ne4 ROUND A 2px 
N 
247183 74356891 
20.0855 24.2902 
1480.41.32 403.4288 
16096,6332 2980.958 
N UFON M 
2.7183 74.358091 d Q 
20,0855 24.2982 d L 
149.4132 403.4288 d d 
10926.6332 2980.95 d 0 
26 38 4.20 7.13 weld 
90.47 fol? 7404 6.2 
1.45 0.54 7488 2.93 
"RANDOM' UPON 'NUMRERS:' UFON '=', [2 YM 
RANDOM 
NUMBERS: 
A656 4.28 7.13 5.11 
1.45 8.54 7.88 2.93 


v ZeX UPON Ygnxg;nYsusnro 
L1] aCATENATES MATRICES ALONG THE FIRST IIMENSION 
ER pioet 
[3] — We[/li,CIAIXe XO “LOT e PY 
[4] | ZeCGCGCH4IDO UD) 9O EO SX 71, (PDX) p pr it LAY), 

WITTY 

[5] 8841119 15.57 

v 
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Name: VIOTA - Indices of the rows of Y in vector X 


Character scalar or vector (any array? 
Character array (not a scalar? 

Integer array of shape “IveY (i for a vector Y) 
consisting of indices which indicate where in X 
the rows of Y are found first 


Where a row of Y is not found in X the corresponding 
element of the result is assigned a value which 
exceeds the length of X by one. Thus this function 
could be regarded as dyadic vector v. ALL character 
arrays are accepted as the left argument, too, but 
they are raveled before the execution. The result is 
origin dependent. This function uses the auxiliary 
function CHNGl. 


Example: 


eMe op’ IAB ' 


12AB 1 
zAB 12 
AR 126 


B 


L2AR 


12AK8 


'AB 1268B 'VIOTA M 


99123 A 


Function listing: 


v ZeX VIOTA Y;U;RjIIjF 
aa INDICES OF THE ROWS OF Y IN VECTOR X 


] aAVECTOR a 
] 


ANEENS CHNGI 
Z€ORe7 1 neepYopeprrao 


[55] 3CQPeCpXe,X)70 


Te (Xe (CR, LV /AF 


[71 Ze’ ei CHNGL Yote=(X,We' "OOpGGOWe145I0-[I0)9. 


+I] 


[8] ZECNZ=("1Lbr pL AC CPT) ROPY) 'OQp.Xx1I*1 


[91 


Z€CZ-2Wo t (P+ 10) xWeZ=0 


[10] a840802 08.37 S 


VM 
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a 
Namet CHANGE ~ Replaces substrings 


Syntax? Zex CHANGE Y 


Xt Vector containing the vector to be changed and 
the new substrings 

Yt: Integer vector of three or multiple of three 
elements; indices, old lengths and new lengths, 
The indices given in Y are the starting locations 
of the substrings to be replaced. The new lengths 
indicate the number of characters that are taken 
from the end of X to replace the characters whose 
number is given in the old lengths. 

Z* Argument vector X with substrings indicated by Y 
replaced by substrings in the end of X 


This function can also be used to replace parts of a 
numeric vector. The function calls the auxiliary 
function FIOTA. 


Example: 
Ve' VECTOR TO BE CHANGED! 
[€Ve€CU,'& ','WAS') CHANGE 1 8052 3 
o VECTOR WAS CHANGED 


Function listing: 


v ZX CHANGE YsAsaPsl el 
[1] aaREFLACES SUBSTRINGS 
[2] aX *9» VECTOR, NEW SUBSTRINGS 
[3] aY e+ INDICES, OLO LENGTHS, NEW LENGTHS 
] a#INDICES ARE THE LOCATIONS WHERE THE SUBSTRINGS 
TO BE REPLACED START 
[5] aNEEDS PIOTA 
[6] Yee’, GYO3)0 eY 
[7] | Ze*(B&e--/ YE24 (I0; 0X 
[8]  Le(Gezo)*/aFe-Z^Yp2 1 I0; pl 
[9] — LEIeYEDIOS;140, 199 NAP] e1-—AP 
[101] 32Z€zrütrorreNL o -^D107 
[11] ZEXO-DIO0) PIOTA Y[29[]I03]]Je854X 
[12] a840802 10.59 
v 
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Names QAR - Drops all blanks 


toce C800 ened voce 


syntaxi ZENAR x 


llescription: 


ie 


Xs Character scalar or vector 
Ze Vector X with all blanks deleted 


Example: 


AR 'A BC Ew E F ! 
ARCIEF 


Function listing: 
v ZeLIAR X 
[1] aROFS ALL BLANKS 
L2] ZCOXS' ')/X 
V 
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ILE - Drops leading blanks 


as 
t= 
iG 

+e 


$ 


Syntax: ZeDLB X 


Descriptions 


X? Character scalar or vector 
£* Vector X with leading blanks deleted 


HTi 
D 
i 
1 
= 


DLB' A B C DB E ' 
^ B C n E 


Func: ) listing? 


€ 2000 boos 


SET 


iol 


i 


v ZeDLB X 
[1] aAlROPS LEADING BLANKS 
[21  Ze(QUG X. 10412 DTD AN 
V 
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Name $ UME — Drops multiple blanks 


Sege e 


syntax: ZeliMB X 


* Character scalar or vector 
t Vector X with multiple blanks deleted 


Example: 
OME ' ABC DEE GHI ' 


ARC DEF GHI 


ion listing: 


Fung 


v ZeDMB X;L 

[1] aDROPS MULTIPLE BLANKS 

[2] ZeCrd Lov CAdL, OvLeX#' ')/X 
v 
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Name: DTE - Drops trailing blanks 


X? Character scalar or vector 
Zt Vector X with trailing blanks deleted 


Ve’ A B CD E ' 
pM 


fle VeDTR V 
à B C n E 
eh 


Function listing: 


v ZenTB vert 
17 anROFS TRAILING BLANKS 
WR noel 
Al £C€KCUU)TOxNX! TDS vpPRXI PX 

1 a840619 12.352 
v 


Se rrr 


A 
4 
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Names INVECTOR ~ Gives the indices in vector Y where 
substring X is found 


oynmbaxe ZeX INVECTOR Y 


l'escription: 


eese o 


i 


Scalar or vector Cany array) 

Scalar or vector of type X 

Vector giving the indices in the vector Y where 
the substring X is found 


9^ Od we 


The argument Y can be any array, but it is raveled 
to à vector prior to execution. 


Example: 
'IN' INVECTOR ‘INDICES FOUND IN A VECTOR' 


Function listing: 


v Zex INVECTOR Y$;J:;RA;RE 
[11] aGIVES THE INDICES IN VECTOR Y WHERE SUBSTRING 
X IS FOUNI! 
1 — JeCGISÜIOMRE-RACe, X) /Je Y 1423) SRB] Ye, Y 
3] Z€OYE Jo , c RAO - T0 1^4 X207 
] a840618 15.36 
v 


momir 
Di MI 


H ^ 
e à 
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Names NSS - Next substring of character vector named Y 


Syntax? ZEX NSS Y 


ooee oe es O eose oboa 


Xt Character scalar 

Yt Character vector 

Zł The first substring of a character vector named 
Y. X acts as a separating character. 


Substring Z is dropped from the vector Ar, 


Example? | 
Ver, WORD, 2.WORD, p4. WORI’ 
| E N55 "y! 
1. WORI 
V 
2, NORD, , 4. NORD 
To NSS muy! 
2 .WORTI 
n NSS r1 


v ZeX NSS YSE3S 
] aNEXT SUBSTRING OF CHARACTER VECTOR NAMED Y 
[2] aSURBSTRINGS ARE SEPARATED BY X | 
L3] aSURSTRING IS UROPFED FROM THE VECTOR 4Y 
[41  FeL/XOie4Y)oaX 
[5] Z€C(GE-DTODTS 
6]  AY,'eCXEt[II00v8S' 
L7] 840802 12.395 
V 
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Name s OF ~ X'th substring of character vector Y 


oyntaxs Zex OF Y 


Description: 


+ Non-negative integer 
Y: Vector 
Z* X'th substring of vector Y. Substrings are 
separated by the first element of Y. 


Example: 


A OF ' TIMO SEFFO ARTO REIJQ!' 
ARTO 


Function listing: 

v Zex OF Y 

| aaX'TH SUBSTRING OF CHARACTER VECTOR Y 

| altY MUST CONTAIN THE SEFARATOR CHARACTER 
3] ZELVCXHENVELPYD SY 

"Al a840802 11.05 

VM 


e 
el 
d 
^ 
* 


[i 


r= men 
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Name ¢ BLIMAT - Takes character input row by row and forms 
oO matrix 


Syntax? ZeBLDMAT 


t Character matrix formed with row by row input. 
Each row is padded with blanks to conform with 
the longest row. 


A carriage return indicates the end of input. 


Me PL Dat 
THESE ROWS 
ARE 
INFUT FROM TERMINAL 
M 
THESE ROWS 
ARE 
INPUT FROM TERMINAL 


v ZeBLIMATZ Isr sue io 
[1] aaTlTAKES CHARACTER INFUT ROW BY ROW AND FORMS A 
MATRIX 
[2] aTO EXIT ENTER CR 
C3] UepZe 0 0 proe 
Lal Ri:20Ri1tl10xxFPex/erlernm 
[5] AKCO"«np2320/'Ienp2141' 
[6] ACPOUL2 7) Z Zeu], Pez! 
Can SRL Ne eZeZz, Cid I 
[8] a840801 12,89 
v 
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Names CLM - Reshapes vector X into a one column matrix 
syntaxi ZeCLWM X 


Description: 


X? Character or numeric vector 
Zt Vector X reshaped into a one column matrix 


If argument X is not a vector this function returns 
it unchanged. 7 


Examples 
CLM'AFL AF! 
^ 
F 
L 


a 
E 


Ub. GRO 


Function listing? 


v ZeCLM X | 

] aRESHAPES VECTOR X INTO A ONE COLUMN MATRIX 
]  Gx*eezex»/70 

] ZeCGGpDo,1)00x 

| a840801 08.14 

v 
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Name: DISPLAY ~ Displays character array Y in pages and 
columns 


Syntax? Zex DISPLAY Y 


A: Non-negative integer vector or scalar. XE13 or 
scalar X indicates the number of ivex arrays 
per column, XL221 the space between adjacent 
columns, and SZT the number of adjacent columns 
per page. The default value for Säi is 3, and for 
AL Al the maximum value set by DN, 

Y$ Character array of rank 22, 

Zä Character array (Cof rank IteeY) which displays 
Y according to the instructions given in X. 


[jeMel3 11p'12345678090' 
12345678901 
25456789012 
545678090123 
45678901234 
26709012345 
67890123456 
78901234567 
99012345678 


90123456789 
01234567890 
12345678901 
23456789012 
34567890123 

2 5 3 DISPLAY M 
12345678901. 345678090123 56789012345 
23456789012 45678901234 67890123456 
780901234567 90123456789 12345678901 
89012345678 01234567890 23456789012 
345678090123 

[IF We 51 


At? 2 2 6pM 

2 LIS PLAY A 
1234356 901234 789012 254567 012345 
789012 367890 545678 890123 678901 


545678 123456 901234 4367909 2354267 
901234 789012 26790 0123425 8990123 
267/890 34507 1233456 670901 
133456 701234 789012 2354567 
789012 267/890 3456708 090123 
345678 123456 901231 4256789 
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Function listing: 


v ZeX DISPLAY Y:6:D:6:83[10 
[1] RAaDISPLAYS CHARACTER ARRAY Y IN FAGES ANI! COLUM 
NS 


[2] aX[1]1] e9 NUMBER OF (149 YO ARRAYS FER COLUMN 
[3] aX{2] €» SPACE BETWEEN ADJACENT COLUMNS (DEF. A 


) 
[4] aX[3] ca NUMBER GF ADJACENT COLUMNS FER FAGE «I! 
EF. MAX SET BY [IFW) 
Groei 
Ge “LT tlie py 
Gel^léXe, 30,203 
ACPI LTEX/XeXL1 1,19 C29X),L (CIPU-20 *G*S 
Zero, COX) AVID eC CAXX/X) , 19IO ^Y 
ZC€C1, ipl tipi p 2+ eT) WZ 
ZeECAYXELT, CANT AGED yXL27x%G) PZ 
Ze CCXL27*6+S) eC Gel), S000 NZ 
AB4Q0BO2? 12.48 
M 


Da 
EES 


a Ta ^S. e 
= “wast” H . 


fad DJ 
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Name: LIS 


T = Lists Y using X as separator elements 


Syntax: ZeX LIST Y 


$909 9000 09090 00200 5999 9990 occo cooo 9999 Sete 


X$ 
Y: 
Zt 


Thi 
but 
han 


Example: 


LET 
AL 


LET 


US. 


Scalar or vector 

Array of the same type as X 

Array Y reshaped to a matrix. The elements of Y 
between consequent separators indicated by X 
become an individual row in Ze The change of line 
means also separation. Rows are padded with O's 
or blanKs to conform with the longest row. 


e function can be used to list numeric arrays,too, 
it is most commonly found in connection with 
dling character information. 


Me'LET US MAKE? 
MeM,E.1]'Ah LIST. OK?! 
M 

US MAKE 

IST. OK? 
' 4’ LIST M 


MAKE 


A 
LIS 


OK? 


JOY 


I 


'/' LIST 'JOY/ANGIE/MICHEL ' 


ANGIE 


MIC 


[1] 
[2] 
L3] 
L4] 
[5] 
L6] 


HEL 


L;F 


v ZeX LIST riit: | 
SING X AS SEPARATOR CHARACTERS 


aLISTS Y U 
0rOet 
LeCYeCQLA0 py Yy PX) EX 
ZePe, OPP ZEPEP LPE LAATIA Epy 
ZeCpZe Cy ZINCHLISY 

88040801 13.15 

v 


ty 
NG 
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Name: LISTO ~ Lists Y so that extra separators X produce 
empty lines 


syntaxi Mex LISTO Y 


Description: 


X: Scalar or vector 

Y? Array of type X 

Z* List of Y formed in the way of the auxiliary 
function LIST. The difference is that now 
each extra separator produces an empty line (row 
of O's in the numeric case). 


Examples 
'x' LISTO 'ROW ixxxROU 22ROW 3x*ROW 4' 
ROW 1 


ROM 2 
RUM 3 


ROW 4 


Function listing: 


v MEX LISTO Y:I;L$;P$X$[110 

[1] aLISTS Y SO THAT EXTRA SEFARATORS X FRODUCE EMP 
TY LINES 

2 | nri0ei 

3]  Le(Oreci 432 , Y, PX)EX 

VR Mefe OTTEET (IIT) Tél /uer 

eh MeGeHnD ec, MONC"L/Y 

| a840801 13.21 
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9 


oe? 


Lë 
i2 


I 


e 


. 
3 


MAT ~ Divides vector Y into a matrix according to 
lengths X | 


gyntaxs ZeX MAT Y 


AE Non-negative integer scalar or vector, +/X €9 PI, 

Yt Vector 

Z$ Vector Y divided into a matrix according Lo 
lengths X. ALL rows are padded with blanks or O's 
to conform with the longest row. 


(16) MAT 215100 

100 0 O0 O0 O0 o 

100100 0 0 0 o 

100 100 100 0 0 o 

100 100 100 100 0 o 

100 100 100 100 100 © 

100 100 100 100 100 100 
obt e. ' ABCIIEFGHI JKLMNOFGRSTUUMUXYZ ' 
(1765111) MAT 3OPARC 

ARBCIE 

FGHI 

JKL 

MN 

0 


F 

QR 
STU 
VWXY 
ZABCI 


Function listing: 


v ZeX MAT Ys[IO 
[1] aDIVIDES VECTOR Y INTO A MATRIX ACCORDING TO LE 
NGTHS X | 
[2]  [I0e1 
[3] Ze pZ) pCG,ZeXo AË 70,X0NY 
[4] 8840801 13,25 
V 
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Home: 


¢ 


Syntax 


lescriptio 


Example: 


Function 


60 


MATRIX ~ Reshapes X to a matrix 


ZeMATRIX X 


Ons 


ll 


Xe fi 
Ze A 


ny array 
rray X reshaped to o matrix. 


MeMATRIX 9 
pH 


Me3 2 BPABC 
M 
ABCIEFG 
HIJKLMNO 


PGRSTUUM 
XY ZÓBCUIE 


peut ek 
MeMATRIX M 
M 
ABCDEFG 
HIJKLMNO 
PORSTUUM 
XY ZABCHE 
EGHIUKLM 


NOFGRSTU 


listing: 


v ZeMATRIX X 
[1] aRESHAPES X TO A MATRIX 
L2] ZC€CXX/ 71 0pX0, 1l, PXI PRX 
[3] a840801 135.39 
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TABULATE ~- Tabulates data in matrix Y according to 
| the Keys in X 


TABULATE Y 


Character vector with Key variables separated by 
oO comma 

Numeric matrix of data with columns corresponding 
to Key variables besides the columns containing 
the data to be tabulated. If one of the Key 
variables is of character types Y is a character 
vector with Key data variables and the data 
variable separated from each other by a comma. 


Z* Array containing one dimension for each Key 
variable and an additional dimension of length Ne 


C“iteY) minus the number of Key variables in X 
if Nel. The data part of Y is tabulated 
according to the Keys given in Xe 

This function needs the auxiliary functions RIOTAL, 


NSS, and SUBSUM. 


DEPTe10 20 30 6 NEFTV¢10O 10 20 20 30 
HEXEL 2 6 SEXVel 2 1 2 1 | 
[eMeDIEPTU,SEXU, 5 4p4S5 23 12 23 90 12 34 44 21 

10 1 45 25 12 23 | 

10 2 90 12 34 44 

2O J 21 45 23 12 

20 2 23 90 12 44 

40 1 44 21 45 23 
ipee LO. SEX! TABULATE M 

45 23 12 23 

90 12 34 44 

21 45 25 12 

23 90 12 34 

44 21 45 23 


0 0 O OQ 
"DEPT M 
DEFT M F 
10 103 180 


F'UPON T(CLM DEPT) ,*/N 


20 101 159 
30 133 9 
Me39 ZA 12 56 33 
DEPT*'ARBC' v DnEFTUe€'A^ABBC' | 
BEPT,SEX' TABULATE 'DEFTV,SEXU,M' 
49 23 | 
12 Dé 
33 0 


APL 


special - 


 TMT-Team Oy 


v EEX TABULATE YA Cos Lo INS JILIN IE RS Ws 
AATABULATES DATA IN MATRIX Y ACCORDING TO THE K 


EYS IN X 
AX € CHARACTER VECTOR OF K KEY VARIABLES SEPAR 
ATEN BY o COMMA 
AY € MATRIX OF DATA THE FIRST K COLUMNS OF WHI 
LH 
ACORRESFOND TO THE KEY VARIABLES 
ATHE REMAINING N COLUMNS CONTAIN THE DATA TO RE 
TABULATED 
ag CONTAINS ONE DIMENSION FOR EACH KEY VARIABLE 
ANT 
ATF Nod AN AnDITIONAL DIMENSION OF LENGTH N 
ATF ONE OF THE KEY VARIABLES IS CHARACTER TYFE, 
AY MUST BE A CHARACTER VECTOR WITH KEY DATA VAR 
TABLES ANTI 
ALATA VARIABLES SEPARATED FROM EACH OTHER BY A 
COMMA 
ANEENS RLOTAL SUBSUM NSS 
Gre LNeor Leo 
Ae 
LisVe',' NSS 'X',0p0I€I*l 
SELL 2AUNC V 
he€R,ifteneivV 
Ce! 'eONOPA 
AN/'9L2,0pG€Yrs 11' 
We [| ; t NSS J Y 3 
PELT ANC W 
Ge dW 
SE SP CÉ! 'gONOPG 
L2seCCAge PPA) /LS 
JEAG 


ALA 
Lo Jer e gs D 
L4sINe IN, 


We ER 

UeUL AUT) 

SLIT cx eX 

INCCOL, CHIND DD PINDESUJ 
Leve"id O i (CINÉ LOIN), 
Pe CLdF) = 14P (LZ pk) od bel 
AN/' YEG CO, DY! 
ALND ' Ye4Y' 

YeC2ec ey, 12pY 

Ve, 1) SUBSUM Uz? 

IN INE} +N\E 7 

HReR,Xx/1vpY 

Ze (OZ B) AO 
INeltRLCIRIN,EL] 1 

Hei 
LSEtZCUINtH-LIeYC soy 
SLEPT tpy) XHECH* 1 
ZeCG Lbs 1 4RO MED PZ 


E O 
7] EI:S'VARIABLE ',U,' NOT VALID! 
30 l 
E2t'UARIABLE ',W,' NOT VALID’ 
350 


E3 VARIABLES "AN," AND ',W,' ARE NOT OF THE SA 
ME TYFE' 
a841203 13.44 


AEI tn edd o OTM Te! Tesernm fly 


63 
Names ALFASORT — Alphabetizes matrix X 


syntax? Z¢ALFASORT X 


les 


T 


cription? 
X? Character matrix 
Zt Matrix X with its rows in alphabetical order. 
Underscored letters are treated equally with the 
normal ones. 


Me'o'LIST'RAUHASL TISSU LOUE LISSUS RAUHA I TS5SUDI! 
M 
RAUHA 
LISSU LOUVE 
LISSU 
RAUHA 
LIS5SUI 
ALFASORT M 
LISSU 
LISSU LOUVE 
LISSUI 
RAUHA 
RAUHA 


Function listing: 


v ZEALFASORT XEO 
aALFHARBETIZES MATRIX X 
[II0€0 
Z€' ABCDEFGHIJNLMNOFQRSTUUMWXYZ^01234567899 ' 
Ze€Z,' ABCTEFGHTIIKLMNOPQRSTUVWYXZ4' 
ZeX[4384838|12i X; ] 
n840802 11.22 
v 


D Cf Gi hoe 
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Name: 


Syntax? 


64 


CLASSIFYX - Classifies Y in terms of vector X 


ZeX CLASSIFYX Y 


flescription: 


Example: 


Xf Numeric vector of uniFue elements in any ordeF 

Y? Numeric array 

Z* Integer array of shape er, The elements of Y 
are cut down to the nearest values found in X 
and assigned the corresponding indices of X. 
If an element of Y is smaller than all elements 
Of X, it is assigned the value []I0-1. 


The result is origin dependent. 


Ves. 10.5 7.5 

4-2 2 8 RNIM O 15 1 

A 
9.2 2.5 O66 8&4 6 8.7 3 
8.3 1.3 11.4 1 6.3 1.8 9 


/ 12.3 


14.1 2463 10.5 0.5 946 4. 
4,7 8.8 


1 
10.8 14.1. 2.1 8.8 0 5 
ALEV CLASSIFYX A 
^1 
300531310 
30201030 


03022 
320113 
ICI-0,197181C6C(U 110012 7YeU1 e (AL [4,517 
I 
12 56 9 
MeCTCLM. V2eUE4U D BES' $ 'BESITCLM I 
'FROM RESI? !,D1]TCLM V2)BES' TO 'BES1 M 
FROM TO 3.5 t 12 
FROM 3.5 TO 7.5 S 
FROM 7.5 TO 10.5 ó 
FROM 10.5 TO 


C Oi 


ep 929 94 99 


9 
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v ZeX CLASSIFYX Yg;Bg;Dglg;L 
[i] anaCLASSIFIES Y IN TERMS OF VECTOR X 
[2] aYEI] IS A MEMBER OF CLASS J IF XLEJIsSYEEZJ]L/OX» 
X[.127X | 
[3] aZCl] ca CLASS YÇ] OR DIO0-1 IF YDIJ«s«L/X 
[4]  4(BewitpltCgeYo/'Ye,Y' 
CS] It ax, Y 
[67 LeTo pxX)-4(]I0 
[7] Le py) pOX2 
[8] ZLO.7T2)-pX]e€CXGIIO-10,4XD EEEO. N17] 
[9] AEBS ' ZelipZ ' 
[10] a840802 11.195 
v 
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Names FH - Finds the frequencies of Y in the classes of X 


Syntax? Z€x FR Y 


Example: 


3.1 


4. K 


N 
Q 
C 
N 
I 


umeric vector consisting of the lower boundary 
f the first class, class width, and number of 
lasses 

UMETE array 

nteger vector of shape XL33 indicating the 


number of elements of Y in each class. The lower 


b 
d 


oundary of class I is XES34XE23XxCI-10. YEJI is 
member of the I'th class if it is between the 


lower boundaries of I and Itl. 


Mes 8 RNDM O 10 1 
M 
ew + 4 4. 3 1.6 ae 6.7 


6 9.1 8.7 0.7 5.3 1.4 B mel 


9.1 4.9 9.5 1.3 1.1 9 — 6.9 
VEO 1.5 4 FR M 
V 


A246 


Hen o - 'BESLOTCLM Ved. 5x.4)BRES' i 'BESITCLM V 
'CLASS'BEESICTCLMi AD ,' + 'BESICTCLM V-1. 5) BES M 
4 


51 a 0 ~ 1.95 3 

82 9 1.59 - 3 e 2 
$3 9 A ~ 4,45 $ 4 
$4 95 4.5 — 4 * 6 


Function listing: 


[L1] 
[2] 
[3] 
L4] 


[5] 
Lé 


v Zex FR YSOI0 
aaFINIS THE FREQUENCIES OF Y IN THE CLASSES OF 
X 
aX eo THE LOWER BOUNDARY OF THE FIRST CLASS, CL 
$3 WIITH, NUMBER OF CLASSES 
az[I1] GIVES THE NUMBER OF ELEMENTS OF Y IN EACH 
CLASS 
[]II0€0 
Ze8/(QOXE2D 92LOG ,Y)XE00D9XE17 
a840802 11.20 
Y 
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Namet ORTER ~ Index vector that orders matrix Y in X 
collating order 


Syntax: ZeX ORDER Y 


lescription!: 


Vector or matrix 

Matrix of the same type as X | 

Index vector that orders Y by rows in X collating 
order. If X is a matrix its columns idicate equal 
characters. 


N ré X 
^*^ 99 99 


The result is origin dependent. 


[eMe "75 493 
2 


E rz LA Oi 
Pie Ge 04 
M CN Gl ka 


e: 
MN 


3 2 
[eV C3) ORIIER. M 
51 


MEV; 1 


Ec: 
ON 
r3 


1. 
à 4 
1 1 
3 2 


3 ? 


DENEZ 4p'ABCIH 2344800" 


ii GPRS ta Fi 
Oi BS e Ge 


ARCI 
1234 
ARCH 
[leMe' 'LIST' BERIT CYNTHIA ICYNTHIA HOUG Da 
BERIT 
CYNTHIA 
LOYNTHIA 
DOUG 
DA 
Oreg 
GEVEN ORDER M 
3 00124 3 
HUN: 
LCYNTHIA 
RERIT 
CYNTHIA 
DA 
DUU 
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óg 


Function listing: 
v ZeX ORDER Y;C;Mi0;P 

[1] hnaaINIEX VECTOR THAT ORDERS MATRIX Y IN X COLLAT 
ING ORDER 

[2] aX IS A VECTOR OR A MATRIX, WHOSE COLUMNS INDIC 
ATE EQUAL CHARACTERS, 

[37 Geto 

[L4] ZtilppY 

[5] Peni tex 

[61 Ate X 

[73 Cervdvpy 

[8] LtiMeXiYEZg C7 GPCOL1004C 

[9] Z-ZLACP*12048CP 1 C700 4MO &PXMZEO-F PX 


L10] »9(COxXpGc 109C»)/L 
[11] n3840802 11.23 
V 
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oY 


Ae Logical array 

Z« Logical array of shape eX. Evaluated along the 
last dimension, only the first ones in groups of 
ones in X are set true. 


[eMe4 10091 1110001 1 
1111000111 
1110001111 
11002011111 
1000111111 

AY M 
1000000100 
1000001000 
1000010000 
1000100000 

Function listing: 

v ZehY X 


[i] aSETS TRUE THE FIRST ONES IN GROUFS OF ONES 
[2] | Z€X CC ppX30 1 71290,X 
[3] 4840802 13.25 

v 
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Name t GREV —- Groups of ones in vector Y marked by vector 
X 


Syntax? zex GRPV Y 


Xt Logical scalar or a vector of the same length as Y 

Y: Logical scalar or vector 

Zi Logical vector of the same length as Y. Those 
groups of ones in Y that are marked by ones 
in corresponding positions in X are preserved. 
Other groups of ones are set untrue, 


A group in Y is marked by X by having one or a 
multiple of ones somewhere in the range of the 
corresponding group of Y. If X is a scalar, it is 
handled as if it were a vector of all ones/zeroes: 


Example: 
O $0301 141000 GRPUV U-1 12 100110 1 1 
1 GRPU V 
11100101101 1 
| Uec'1,23 320 2,90 0,01 12' 
3 4p(QecUS  , GREY Mai '2/V 
1211100000101 11101111000 


v Zex GRPV Y$;[II0$;4 
[1] aGROUFS OF ONES IN VECTOR Y MARKED BY VECTOR X 
[2] nroeo 
[37] Zeil LU PAGHENYD W100, Y) 29 
[47] ZLCXAYI SACI 
L5] ZEYAZLA] 
[6] 8840802 13.41 
v 
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ZELEN X 


lescription: 


Logical vector 


Zi Integer vector 


ones in X. 


v ZeLEN X31 
aL.ENGTHS 


8840802 
v 


[3] 


AFL. 


Special - 


71 


returning the 


10001 


1 


LEN - Lengths of groups of ones 


1 


OF GROUPS OF ONES 
Ze(DO0)/Ze€GV I -1*71I6(000 7i 9X€0,X,0 
13.45 


in vector X 


lengths of groups of 


1 1 


IN VECTOR X 


TMT-Team Oy 


Name: L OU 


end d 


Syntax: Lex 


lescription 


eoo oeoo 6900 crot geg 


-= X 


+p 99 


The 


Examples 


Ó 1 


0 1 


Function List: 


WW 


M 


CX 


MOOD Lë A 
Li bdu eee LII 


rao 


} 


G — Logical vector of length X with indices 
indicated by pairs in Y set true 


LOOG Y 


La 
* 


Fositive integer 

Non-negative integer array consisting of pairs 
whose elements are £X. 

Logical vector of length X. Elements between the 
indices given in the pairs of Y, inclusive, are 
set true, and the other elements are set untrue. 


result is origin dependent. 


i2 LOOG 2 
00 1 11 1 

nrioeo 

12 LOOG 1 
001111 


~ 8 10 11 
lit 


CM 
fum 
WË 


E > 
me Ni 


9 10 
d 


O m 


v Lex LOOG "äh 
AaLOGICAL VECTOR OF LENGTH X WITH INDICES INDICA 
TED BY FAIRS IN Y SET TRUE 
Lex ee 
YECCO.GXX/ PY) 20 pY 
KEQ- Y 
LOIKAY Jel 
LGL ww 
LÜUCYROZY 1*1 
AS4OBO2 13.46 
7 
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Name: LY - Sets true the last ones in groups of ones 


Ai Logical array 

23 Logical array of shape eh, Evaluated along the 
last dimension, only the lost ones in groups of 
ones in X are set true. 


[e€Me4 10e1 1110001 1 
1111000111 
1110001111 
11000101111 
1000111111 

LY M 
0001000001 
0010000001 
0100000001 
1000000001 

Function listing: 


v ZeLY x 
[1] aSETS TRUE THE LAST ONES IN GROUPS OF ONES 
[2] | ZeX(C ppX) 4129X,0 
[3] a840802 13.48 
v 
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Name: COME ~ Combinations of integers from 1 to Y in 
length X 


Syntau* Zex COME Y 


Xt Positive integer 

Yt Fositive integer. Y 2 X. 

Z* Integer matrix. On each row of Z there is a | 
different combination of integers from range 1 to 
Ye The number of elements in the combinations is 
given in X. 


This function needs the auxiliary functions RHO and 
FIOTA. 


3 COME 5 


125 
12 4 
12359 
13 4 
13535 
1435 
2 A A 
255 
242359 
A 4565 


v ZeX COME Yg;H;I$D;B;DIO 
[1] aaCOMBINATIONS OF INTEGERS FROM 1 TO Y IN LENGT 
H X 


[2] aNEEDS RHO FIOTA 

[3] IevIiei-Y-X*He-(10€0 

[4] Belo cope. (én 

[5] ZeCCXLY) pO PICO 

[6] Ri1tZL;H]eBEIgH] RHOCLAHAAIDECICI PFIOTA D-II] 
[7] | 9O00HCH*12/R1 | 

[8] 4840802 13.28 


v 
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Name: COMBI - Index matrix with combinations of indices 
to X and Y when the keys match 


Syntax? ZEX COMBI Y 


lescriptigon: 
Ai Integer vector 
Y$ Integer vector 
ZE 2-column index matrix containing all the 
combinations of indices to Key vectors X and Y 
when the Keys match. 


Applied to the arguments, each combination returns 


two identical integers. This function uses the 
auxiliary functions FIELIS,RHOU,PIOTAÓ,uand EFS. 


[eMecU1e21 6 9 21 9)COMBI U2e9 21 32 21 9 9 


O4 Gi Di 
U 3 


3 OF 


AS ZS ho Oe & 


£5 
ws 


b D> RB BBC 


VILL ei IIUPON V2EME$;213 
9 90 F 9 9 9 21 21 21 21 
T w GY ww Y Ọ 21 21 21 I 


v ZeX COMBI YiLASLE FAFE STOF UA UE 
[1] anINDEX MATRIX WITH COMBINATIONS OF INDICES TO 
X AND Y WHEN THE KEYS MATCH 
LA AX ANT Y CONTAIN NUMERIC KEYS 
[3] aNEEUS FIELIS RHO FIOTA EFS 
L4. nroei 
[5] XecL^ex EFS YX 
[6] YeCcLBeY EFS X)/Y 
[7] UAEAX 
[8] UREA Y 
L9] Fock TELS XUA] 
[10] FReFIELIS YLUR] 
[11] FeFAxFE 
[12] Z*ei*Ló"1 FLOTA FO+F RHOTFF-F64 
3] Z€eZ,U1.1] 14+¢F RHQ FE) FIOTA F 
] ZeZ+cF BHO+HNT1¥0,FA), £1.61] E RHO*N7190,FE 
3]  ZC€XG-.6/ PLA TUALZE p10 27, BZP BOLURLZES, 2111 
6] an840802 13.32 
V 
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Name: EGET - Exclusive indexing ZC 


€ «999 Greg 


oynbaxs ZeX EGET Y 


X? Any array | 

Yi Integer matrix (vector for a vector argument X). 
Lier must be equal to ppXe 

Zt Vector returning the elements of X that are 
indexed by Y. Each column of Y is interpreted 
ns a set of indices applying to o particular 
element of X. 


DEAE? A 7p8'ABODEFGHTJNSLHNOPGRSTUUMUXYZ1234567890' 
ob DEEG 
HI. IKLMN 
OF ARS "1 


VUXYZ12 
5456789 
OARCIEF 
[eMe3 Sel td 2213 222477 6 


oo 
des Bee 


r3 


FUN84 


Function listing: 
v Zex EGET Y 
] AaaEXCLUSIUE INDEXING X[Y] 
] eler €95 ppX 
] Zei, X EDIOt*COODALY-[103 
] 4840802 13.17 
v 
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Name? EFU 


9060 0000 cobe 0929 


Eac 
set 
Thi 
IN. 


C1] 
[27] 


[3] 
[4] 
[5] 
L6] 
[71 


T - Exclusive put 


Any array 

Array of type X. There must be as many 

elements in Y as there are columns in global 
matrix M ~ unless Y is a scalar. 

Argument X with elements indicated by exclusive 
indices in global variable M replaced by 

the element(s) of Y. 


h column of the global matrix M represents a 
of indices applying to à particular element of X. 
$ function can be used with the auxiliary function 


[(eMe4 850132 
2 3 4 5 6 7 8 
10 11 123 13 14 15 16 


18 19 20 21 22 23 24 


24 27 28 29 30 31 32 
VELO 200 3000 
[(eMe2 3516 


[]-M-M EPUT V 
i 2 3 10 S ó 7 8 
9 10 11 12 200 14 15 16 
7 18 19 20 21 3000 23 24 


Eis 26 27 28 29 30 31 52 


M EPUT o IN Q62 4p14 


> > 


0 2 3 10 5 ó 7 g 
9 O 11 12 200 14 #15 16 
7 18 o 20 21 3000 23 24 
5 26 27 0 29 30 31 32 


v ZeX EPUT Y —— 
anEXCLUSIUE PUT | 
aPUTS Y TO LOCATIONS IN X GIUEN BY EXCLUSIVE IN 


DICES IN GLOBAL UARIABLE M 
AS, X 

Xe eX 

2£0010+XaM-OtO]¢,Y 

LEX PZ 

AB4O0B802 13.20 


v 
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seos 


Namet  FHEADER - Formats text Y to fields of length XL1j3 


Syntax: Zex FHEADER Y 


Xt Non-negative integer scalar, vector, or one- or 
two-row matrix. The second row must have O's, 1's 
and 2°s only: 

Y: Character vector or matrix. Lei €? separator 
character other than a blank. Each row may contain 
separator characters. 

Zi If Y is a matrix, each row of Y is formatted 
to a field according to instructions given in the 
corresponding column of X. If Y is a vector, each 
string between adjacent separators is formatted to 
o field. XE1$3 gives the lengths of the fields and 
XE2$3 the way the text is justified in the field: 
Oz=left, lsright, 2=center. In the case of matrix Y 
each string between the separator characters forms 
an individual row in the field. 


Character a or a blank may be used as a fill 
character for not having the rows left justified. 
In absence of a second row of X, all the texts will 
be left justified in the fields. 


Example: 
| *u 10 10 FHEALER 'eABCIEFGAABCAARBC' 
ARCDEARC ABC 
QeFe2 3ep10 20 10 0 2 1 
10 20 10 
0 2 1 
He€'aLl.EFT nTEXTa. PRINTSaHERE ' 
HEH UPON 'CENTERanTEXTa* *HERE' 
HEH UPON 'RIGHTaHEATERAHERE ' 
nl.EFT aTEXTa FRINTSaHERE 
CENTERATEXT ne HERE 
RIGHT nHEADER AHERE 
(TAXIS 40) UFON F FHEADER H 


0000000001111111111222222222233333333334 
1234567890123456789012:54567809012.54567890 
LEFT CENTER RIGHT 
TEXT TEXT HEALER 

PRINTS HERE HERE 
HERE | 
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Ci) 
[L2] 


[3] 


[4] 
[5] 
Léi 


[7] 
r8] 
[9] 
[10] 
[11] 


[12] 
[13] 


[14] 
[15] 
[167] 
[17] 
[187] 
[19] 
[20] 
[21] 
[22: 

[23] 
[24] 


20] 
[26] 
[27] 
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v ZeX FHEADER YA CSJ L MIN PRSS 


ARFORMATS TEXT Y TO FIELES OF LENGTH X[13] 
AaAXC2} 1] ca O= JUSTIFY LEFT, 1=JUSTIFY RIGHT, 2=JU 
STIFY CENTERED | 
aACipY) € SEPARATOR CHARACTER OTHER THAN A BLAN 
K 
AY GA VECTOR OK MATRIX OF HEADERS 
AEACH ROW MAY CONTAIN SEPARATOR CHARACTERS 
ACHARACTER © MAY BE USED AS A FILL CHARACTER (N 
OT JUSTIFIED) | 
aNEETLS LISTO CHN(G1 
Xe€OO.exr15 ]40)/X€(C72^ 1 1 
Ze€tcOo, WE lp ' 
30L ren 
Se! 'plpy 
ALC2gppYO/' YeO 19CYL ;115524''! 
íChclispeeY)/'YeS LISTO tet 
éd Bai 
IA/RO,OPYE CC PY). Dr 3 
IROP LA elei. Yt, 
Yel, No ,2iMeT /NDXB LISTO Y 
Ye€CGCGCGL 4 pYo Mo, M, 1^*pYOPY 
BROSLEeY#' ' 
SRAi[iX0ge&eh^/ipehex10] JeXc35 
LCASs]@ 3 1 3 NCCPA) idel) 
RHi13FPe€L[ xv 1^*P5Y 
YeCC"ivey) ,Ce[ 7Wo ^Y 
Re (RAP IFO) x-[ CRAPO. Gk 2 


yPXPXI CLI 0 


2s di 
e''CHN61 14Y' 


sley 


1 31ev/E23 LE^; $1 


J€101J2 xO[ CR CAGb EP) pW) ~ 


F 
YeRbY 
Z¢'e ' CHNGIC,We.2 ilo /Ox4 2 2 pl,pYop 2 1 3 WY 


a840802 13.11 
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Name: 


Syntax: 


80 
FMT - X f Y where zero elements of Y are not 
printed 


ZEX FMT Y 


Description? 


Example: 


Function 


X$ Integer vector 
|. Y: Numeric array | 
"Zi Z is formed equally with the dyadic primitive 


function T with the difference of not 
printing the zero elements of Y. 


This function needs the auxiliary function RHQ. 


eMe3 5 RNIIM "3 2 


0727273 2 
0 07373 2 
0 "3 "173 1 
10 2 FMT M 
72.00 72.00 73.00 .2.00 
73.00 73.00 . 2.00 
73,00 71.00 73.00 1.00 


listing: 


v ZeX FMT Y; T;L$;Ws[ I0 
1] aaxty WHERE ZERO ELEMENTS OF Y ARE NOT PRINTED 


[. 

[2]  aNEEIS RHO 

[3] nrioei 

[4] XeC2x71 py) px 

[5] — MeOxXCOU71VpY)o ,7"141, YO PY 
[6] ARAL VAST HAS TeXL 142% 10.5% eX] 
[7] Le,WOgl RHOiAI] 

[8] | ZeG C1 pY) ,*/ID pLNLZ,XTY 

[9] 30 

[10] RitZe,XTY 

[11] ZENS) AN deis, OO -XC14I]e' ' 
[12] ZeCOT1VPY), 4/1) eZ 

[13] a840802 13.02 


7 
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WH 


Nome: FMTF ~- XTY with '.' inserted bw thousands and E 


ee ; V 
d d 


yntax! Zex FMTE Y 


KO 


Description: 
X$ Integer vector 
Y? Numeric array | 
Z$ Character array where elements of Y are formed 
equally with the dyadic primitive function T. 
A point is inserted to separate thousands and the 
decimal point is replaced by a comma. 
Example: 


8 2 5 0 FMTP 72.999 73.666. 
73,00 "4 | 
[]k-Me€3 2 RNDM (1E6x2 6),4 
4981621.63  2362444.412 
5039494,378 5272351.864 
5182043.556 3737372.267 
15 2 FMTE M 
4.981.621,63 2.362.444,41 
5.039.494,38 — 5.272.351,86 
5.182.043,56 — 3.737.372,27 
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A 
(ag 


md 


ctio 


mn listing: 
v ZeX FMTF YOX K SKILIN I$ Je DIO 
[17] aX T Y WITH '.' 
[2] SC 
ER ZecC2N 141, PY) ex 
[4] [IX pYeXTY 
[51 p T 
[6] XC€CCO. GK PX), 22 PX 
POF | SKE#ANNEX(E Si] 
[83] Le0zDex 22: 
[9] ^ YE$;L/SR-T]e' ,' 
[10] TIeK-IL - 
[11] JeXC"1*54-4] 2)9.t*Z€Y[ /R,O 
[12]  J€e€€0x€4].0vCI2.««2) 
[E13] JecxJ)x O 1 Vt*NCCE/Zw.O £71V0,8SR2,J 
[14] J€ ¢ qr 
[15] Ye, (t ' »2E$*13 
[16] LeCe:DeGUeZIOg1*0, SK 
[17] Jil O2 ^Yxs ' Sos veld 
risa YEtCYpJ]s' '5/J1e'0' 
E19] JC po ^YDJ1s''  ' 27 
[20] Y[Je.- 1 0]1€(Cp.)2,2)2005' VI 
[21] YECCXOYsS', 'D^Lv716Ys' 'OS/ipl ye! 
peop JeCCGYs', D) ^Lv^19Ys'7')2/pL 
[23]  YEDEJe.—- d OjeCXpHpJAo,2),p! ~? 
[24] Zelixey 


[25] a840802 15.02 


v 
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$. 


A 


Name: 


Syntax! 


Gene CORO 0008 0080 oëee gege ee 


Example: 
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LIMITE - Limits numbers in Y to format X (width, 
decimals) 


Z-F LIMITE A 


X1 Integer vector whose length is twice the SEREEN of 
the last axis of Y - or a single pair | 

€ Numeric array 

Z$ The elements of Y reshaped to fit the format X. 

= If an element does not fit to this format it is 
replaced by the nearest number that meets the 
requirements of X. E.g. 5 2 LIMITE V limits V 
to values between "9. 29 and 99,99, 


The arguments have such a relation as in the case of 
the dyadic function format (ft). This function 

is used in connection with the dyadic function 
format. 7 


Me2 3e23 2.2 12.34 3.456 0.21 0.054 
M | 


23 2.2 12.34. 
3.456 0.21 0,054 
3 1TM — 
ALR 
3.50.20.1 
Me3 1 LIMITE M 
3 17M 
9,92.29,9 
3.50,20.1 
VT(VE5 2 6 2 5 1 6 IDLIMITE 100 100 7200 7200 


C80 SUBS Sgp 6900 0000 poce Gece Gre cooo 0909 dréi zeen 


v ZeF LIMITE ASOIOgn 
[1] aLIMITS NUMBERS IN A TO FORMAT F (WIDTH, DECIMA 


LS) 
[2] Deopepntroei 
L3] LAC2EPRF)/'FetCIOlepeh), 2)pF' ! 
[41 £€-/[1]1 10*x(71 ^72 Bs VF*XF2),L0.11-€2,I105 0 1 
/F : 


[5] 4CO^,7, O 1 /F)/'ZepZ2' 
L6] Zele 1 0 *2»)LG-Il^ O 1 AZTA 
[7] 8840801 08.45 

v 
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Name: ^ FIELIS - Lengths of fields of same character or 
number in vector X | 


Syntau* ZeFIELIDS X 


Xi Any vector 
Zt Integer vector returning the lengths of fields of 
the same character or number in X. 


Example: 
FIELIS'A6ARBR CCCCI' 
A 2141 


eee 


Function Listing! 


v ZGEIELDS XjLj1 
[1] eLENGTHS OF FIELDS OF SAME CHARACTER OR NUMBER 
IN VECTOR X 


[2] COE PX) PZE10 
[3] ZeC¢bD)—Tiviech/vel) ,UIO*eLe1, (L¥X) #7 LAN 
[4] #840802 13.37 | 


v 
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Name; FOG - First of groups 


Cede 64009 0950 «509 0999 0800 e009 0000 seco 


X? Any array 

Z5 Logical array of shape eX. 1 indicates the 7 
beginning of a group in X, evaluated along the 
last dimension. d | 


i 
im 
ee 


Exonp 
| [eMe3 ép3 334 4 


Ol Oi Oi 


hoe 
FC 0 A» i ON 
Ch S Cre O A4» 0 


Oi Gi Oi 
>So 


GOED 0099 6900 G009 0999 Oooo 0000 9090 Oooo 04060 000908 0000 0990 Stee o 


v Z+FOG X 
[1] aaFIRST OF GROUPS E 
[2] aZ IS A LOGICAL ARRAY WHERE 1 INDICATES THE BEG 
INNING OF A GROUP IN X 
[3] |) 90690 /PZe10 
[4]  Z*1,(Z0710) 90 (GUZe€-1T A50 120 OX 
[5] 8840802 13.39 
v 
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Home: FARTSUM - Sums over fields in Y when X contains the 
field widths 


Syntax? Z€X FPARTSUM Y 

Description 
Xi Fositive integer vector or scalar, +/X must be Zer, 
Y? Numeric vector | 
Zt 


Sums over the fields in Y. The field widths are 
given in X: | 


Examples 
4 32 1 FARTSUM 12 34 567 8 9 10 
10 18 17 10 
elcp PARTSUM 110 


E 
eu 


Function listing: 


v ZeX PARTSUM Y;UIO 
[1] SUMS OVER FIELIS IN Y WHEN X CONTAINS THE FIEL 
D WIDTHS 
2] goes 
31  ZeZ-"140,Z2e€ CNYO NX] 
4] 2840802 13.50 
M 
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Nome: FINI ~ Vector X RHO ^X. 


Syntax? Z€C€PINI X 


eese » cece oses 


$ Vector of non-negative elements 

? Vector X RHO 2X, where RHO is another 
auxiliary function. In other words, Z is a 
vector (XLUIOJPSIOD?,CXE[IITO*1J]P[lI0t120,... 


The result is origin dependent. 


Example: 
groep 
FIND 30 A A 
00022223333 


opoo S006 evoa 0099 O80 0940 (094 9906 occo 0940 9000 boet (099 $009 


v ZeFIND X;L 
[1] aVECTOR X RHO ^X 
[2] Zec+/X) pO 
[3]  ZEI*N"AMVIIO,L/XJeG xx) / eX 
[41 Zen | 
[5] 8840802 13.57 

V 
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Name: PINT - Vector of fields formed by index generating 
elements of X 


Syntax? ZePINT X 


€ Non-negative integer scalar or vector 
t Integer vector with fields formed by 
index generating each element of X. 


FINT could be regarded as monadic vector i. 
The result is origin dependent. 


Examples 
PINT 6403 
1234561234123 


Function listing: 


v ZC€FINT X 
[1] aaVECTOR OF FIELDS FORMEN BY INDEX GENERATING E 
LEMENTS OF X 
[21] aMONADIC VECTOR a4 
[37 ZCOCE/XC€ (X40) /X) Pl 
[41 — ZE*N719010,X12€1- 71 CVD EOD ,X 
[3] | Ze+NZ 
[6] a840802 14.00 
v 
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Names PIO 


Syntax? Zex 


DIE 0090 9906 009090 0009 © $0099 otee 0009 cote 


? 
+ 


¢ 
+ 


e 
LÀ 


FIO 
ind 
SC 
arg 


Example: 


10 


9, 


[17] 
[2] 
[3] 
[4] 
[5] 
[L6] 
L7] 


Ge 
TA - Vector (XE1]41YE12D, (OXE211YE22D , An 


PIOTA Y 


Numeric vector or scalar 

Non-negative integer vector or scalar. 

If X is à vector er must be equal to eX. 
Numeric vector with fields that are formed by 
index generating each element of Y and then 
adding the corresponding element of X to each 
field. 


TA could be regarded as monadic vector y with 
ex origins in the left argument. If X or Y is 
lar it is extended to conform with the other 
ument. The result is origin dependent. 


IO0€0 
10 PIOTA 4 5 6 

11 12 13 10 11 12 13 14 10 11 12 13 14 15 
Fe "Ge 3.9 PIOTA 6 3 1 


A 8.5 7.59 6.9 "S65 "4.5 "6.5 "5.5 74.5 73,5 


v Zex FIOTA Y 
AVECTOR (XE1]*1YÉC1320, OXE2]41YE22D, e 
aX OR Y CAN BRE A SCALAR,TOO 
Xe€CGZe€Ysx0)/X 
ZC€GE/Y( PX PZ/Y) p2-1 
ZL*N II, Y 1e CX*12- "14 IO), Y X 
Z€tTNZ | 
n840802 14.04 
v 
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Name: RHO - Vector (X02 7" YC1I), (XL2]15YELE2120,«9« 


Syntax: Zex RHQ Y 


Tescription: 


Non-negative integer vector or scalar 

Any array. If X is a vector er must equal PX, 
Numeric vector formed by reshaping every element 
of (+Y) by the corresponding element of X, and by 
catenating the results into one vector, 


Ni zë e 


If X or Y is a scolar, it is extended to conform with 
the other element. 


Example: 
3 RHO 0 72 .5 
00072 "272 0.5 0.5 0.5 
3 6 4 RHO 'ARC' 
AAABRBRBBECCCC 


Function Listing: 


v Zex RHO Y;[IO 


[11 aVECTOR (OXE1J2PYEi100, (OXE218YE 2320,54 
[3] groeg 
LA) ZECH/SXE PYEZ/ , Y) pC ZEX#O)/X) pO 
L4] Z[tN 7 1X]1€1 
[L5] ZEYD4+N\Z] 
[6] 8840802 14.08 
v 
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oi 
SURSUM - Subtotals of array Y 


ZeX SUBSUM Y 


A: Non-negative integer vector. td 1X must be 

Y? Numeric array (not a scalar) 

Zi Numeric array containing subtotals of array Y 
summed along the dimension given in  1*7X. 
^1&X gives the lengths of the segments to be 
summed in Y. 


MEB 4 RNIM 9 900 1 
Mi¢(3 EXPNE 3 3 2)%M 
MICS 11 16:]e[]je3 3 2 1 SURSUM M 
1820.5 1588.3 1349.8 1711 
1776.4 1092.7 1399.4 1552.3 
960.1 1110.3 1177.2 632.1 
1820.5 1588.3 1369.8 1711 
1776.4 1092.7 1399.4 1552.3 
860.1 1110.3 1177.2 632.1 
Mie(1 EXPNI 2 2)\Mi 
Heme? 2 2 SUBSUM M 
1685 1186 
1068.7 866.4 
655.1 1028.4 
646.3 1240.3 
1196 313.3 
1026.8 1398.1 
503.9 851.5 
1466.5 957.8 
MiD;3 6]¢(3 EXPND 3 3 20XM 
Mie8 2 FMT Ml 9 MILA 10 15;]e'z' 
Dt 12 173]€'-' 06 MiD;17 25 41]€'|"' 
"i A 
n E 849.0011685.00] 879.00  307.0011186.00| 
805.20 263.50]1068.70| 180.00 4686.40] 866.40| 
180.10 475.001 655.101 310.80  717.6011028.40| 


one seve 0008 geéé 0969 9950 egëe Ee wt aoe 009» poor sees gene eeso 000 eseo $9 apoo poao esse 4959 00909 opoo coos HA see pobo opo oodo C908 9999 0909 9499 sese $949 sët sett hen? Gere obop NESE 
e 000. boso Goes pooo SHED Cove ger 9990 gies Atb C208 0400 0299 BRO cous Gece 9999 cont e ceos tuos obou $909 6405 S056 boro je eee pee bose otoo booo Seen besos geg: otor 0099 $409 gett deoo pora 


1820.50 1588.30 | eee Be 17 11.00] | 
——————— noos È enee onoo osoo coca cone ren cosa È cose opse oeoo oroo sere —————— | — core | 
495250 150-80] 646.30] 394.30 846. 0011240.:30| 
786.20  409,80|1196.00| 279.10 A 30] 313.30 
494.70  532.10|]1026.80] 726.00  Á672.1011598.10| 


etos 0909 9009 0090 0099 cope aooo 9999 $0909 Ssss eooo 9990 0994 2909 9906 bsc 499» osot $549 $000 bene ecc sees rege 9099 6209 Zëss soog € 1499 otee 9900 990 s oseo soco zeoe sees sore © 9469 vote 990 sso 
$495 occa bó49 6090 oche 04009 C060 0009 5000 cesa coou $904 069b sete cese onoo cobo 9600 oboe coet 9 sete 9699 cate RAA geg tee se» cave PODS S806 C060 959€ oaee $2390 sees eooo pee »940 6000 seco send 


E EEN 40 1092.70| | 1 Ds lid L552 630 | | 

E Jn | ———Ó———Ó 2 
2446.70 297.20| 903.90| 455.60 395.90] 851.50 
613.40  853.1011466.50] 721.60 236-20] 957.80 


SOT seee seee SES coor pose SSNS soor SESS soog Sass soro Sees osoo SSL cser EZE ogee Sess Sosy Sees EE Sees gun osos sooo cose sger coss AES IINE l Sees coes coss cose cogs cser soss 
860.10 1110.30] 11177.20 OREIN | 
/—————————— sees | —— | beto evoe oree osco ope seee socs ocos oce ceso cose coso soos cooo oore | aese osne osse osot osoo oore | 
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Function Listing: 


v ZeX SUBSUM Y3A 
[1] aSUBTOTALS OF ARRAY Y 
[2] avTivX e» LENGTHS OF THE SEGMENTS IN Y TO BE SUM 
MED 
[3] a itX e+ DIMENSION OF SUMMING 
[4]  hA*UIO0-Ze"i^4X 
[5] — Xe(IIO0-1)94N719X 
[6] Yea CFNEZTIOE' , (Ab X! ,CT138pp9Y20p' $0, li 
[7]  JZeY-(hbCegYOT7104O,LZ3 Y 
[8] 840802 14.17 
Vv 
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Name: DAYDIF - Number of actual days between dates Y and 
X 


Syntax! Zex DAYDIE Y 


Ai Positive integer array with its elements in form 
yynmdd where yy represents years, mm months, and 
dd days. 

Y$ Similar array of the same shape - or à scalar. 
The elements of Y must be smaller than X. 

Zt Integer array of shape PX or eY., Z shows 
the number of actual days between dates in Y and 
X in the form of the arguments. 


This function applies to a scalar and any array 
accordingly with the primitive function -. 


850101 Uert 840101 830101 
366 731 
890301 840301 IAYDIE 850201 840201 


28 29 

Function listing! 
v ZeX DAYDIF Y$;ID$;UsYAg;YE;NiDIO 

[1] haaNUMRER OF ACTUAL DAYS BETWEEN GATES Y AND X 

[2] aY MUST BE < X | 

[3] | Y6etCYeL (3e100)7, YOEDIOC1;] 

[47 YRC-OXe€L SA 1000 T ,2O FC 13 

CS VEYE-YA 

[6] elo. 25x0rV-4i~-Ya 


[71 NeO,*N 31 28 ,10eS5¢ 31 30 
L8] YeY Ss JANCEYATEC2< YAEY: 1)^0=4]| YA 
[9] XeXp3$ JENE YE] C2« YRCXUC23 )AO=4A]|YK 
[10] Zex+(04+Ux365)-¥ 
[11] 8840802 11.27 

v 
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Namet HAYS - Number of days in months X 


Syntax? ZellAys X 


Xt Array of positive integer elements of form yymm 
where yy represents years and mm months 

Z1 Integer array of the shape of X indicating 
how many days there are in corresponding months 
of X 


Example: 
[eMe2 308400516 
8401 8402 8403 
8404 8405 8406 
LAYS M 
31 29 31 
30 31 30 


v ZenàvYS X$;DIO 
[1] aaNUMBER OF DAYS IN MONTHS X 
[2] ax CONTAINS MONTHS IN FORM YYMM 
Lal QIO: 
[4] Le pX 
[5] Xe 100 100 T,X | 
[6]  Z*Zp(GOI287p6 31 300EX 2:]31-(O(E25 1222 x COXALXE1 52D 


Ó 
+ 1 
[7] a840802 114359 


V 
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Name: FMIYMI! - Formats dates of form yymmdd in vector X 
ns ddemmeL9¥yy 


Syntax! ZeFMTYME X 


$909 opoe o eooo 


Description? 


X; Integer array with its elements in form yymmdd 
where yy represents years, mm months, and dd days 
Zi Character matrix of pX rows. Each element of 
X is formatted in form dd.mm.i9?yy»y in on individual 
row of Ze In case of X being a scalar, the result 
Z is o character vector. | 


This function can be used for years from 1910 to 1999. 


U-410621 840101 991231 
FMTYMI V 
21.06.1941 
01.01.1984 
31.12.1999 
FMTYMI TODAY 
03.12.1984 


Function listing: 


v ZeFMTYMI X 
[1] aFORMATS DATES OF FORM YYMMIE IN VECTOR X AS Di 
MN, Lët 
21 ZeCCp,X), 1) xX 
] ZeC.','1l','9', 6 O Tënt 7805 6012 3 4 
+0103 
] £CO=ppX)/'Ze,Z! 
DI a840802 11.37 
v 
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Name? SIDnATE - Date in the SI standard form 


Syntax? ZeSIDATE 


Z! Dote in the SI standard form 19yy-mm-dd where yy 
represents years, mm months, and dd days. 
A character vector. 


Example? 
SIDATE 
1984-12-03 


tion listing: 


v ZeSIDATE 
[1] aGATE IN THE SI STANDARD FORM 
[27] ZC€340TS 
[3] £03 0 ^.z19Z2)/'ZE1412]e2 29! 
[4]  Z*'19',19,'-', 1 O FH 10 10 TZ 
[5] 8840802 11.42 
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Name $ TODAY ~ Numeric date in form vymmdd 
Syntax? ZeTOLAY 
Zi Numeric date in form yymmdd where yy represents 
years, mm months, and dd days. Z is an integer. 


Example: | 
TODAY 
841203 
FMTYME TOLAY 
03.12.1984 


v ZeTODAY 


[1] aANUMERIC DATE IN FORM YYMMITI 
L2] Z€37[TS 

[357] £03 0 ^.x19Z20/'Z[1*512]€e€2 29' 
[4] Z2€100411001Z 

[5] 88002291022v 

[6] 38840802 11.42 
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Namet WEEKIIAY - Index of the days of the week of the 
dates yymmdd 


oyntax? ZEWEEKDAY X 


Xt Integer array with its elements in form yymmdd 
where yy represents years, mm months, and dd days 

Z! Index vector giving the days of the week of the 
dates X. The index of Monday is 1. 


Example: 

[-4€800101*10000x16 

810101 820101 830101 840101 850101 860101 
[eV 1eWEEKRIIAY V 

45067235 
WIAYSCe7 3p'MONTUEWELIITHUFRISATSUN' 
(FMTYMI, V),' 'EESI WOAYSEV13 7 

01.01.1981 THU 

01.01.1982 FRI 

01.01.1983 SAT 

01.01.1984 SUN 

01.01.1985 TUE 

01.01.1986 WED 


Function Listing: 


v ZCeWEENIAY XgNsASESLEAPSS YT 5053010 
] oplNDES OF THE WEEKDAY OF THE HATES X 
] ANONTIAY=1 
| nroei 
t] Yle 78 7 


Lesch 


HEC ON OS DEI 


34 XePCSeLoo T,X 

] NCe0,*N 31 28 „10p5p 31 30 

7] VeXC 3s JENEXE22 11*€62«XE25 12^0x4| XE 15 1 
g] Eexpis1-YIEE211] 

dl LEARS¢ (C4 E> 4/-YIELIO+LE=4 

“107 Zel+7|YIL2 ]+0+E+LEArS~2 

i1] a840802 11.59 

V 
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Namet. "Dän - Transforms dates in form yyddd into form 
yynmdd 


gynta? ZeYn2YMID X 


X* Integer array of positive elements. Each element 
must be given in form yyddd where yy represents 
years and ddd the day from the beginning of the 
year. (ddd must be less than 367) 

Z* Integer vector with dates in X transformed into 
form yymmdd where yy represents years, mm months, 
and dd days. 


Deche 3 2285350416 
85351 85352 
85353 85354 
85355 85356 
YI2YMI M 
851217 851218 851219 851220 851221 851222 


pn 
LI 
i 
E 
$e 
iS 
Has] 
I 
i 
ba 
iut 
ict 
ip 
iz 
i 
LP 


v ZeYD2YMD X;NiK;L 
[11 aTRANSFORMS DATES IN FORM YYLDID INTO FORM YYMMI 
D 
[2] Ne+\O, Al 28 p5p 31 30 
CR LEN*1]e€^''PpLe366p0 
[4] Xer OÓ 1000 T,X 
[9] KCOEFNLO[XE2$ 1-Z€ OX[ 28 12 392^041| XL1$ 11 
L6. Z€610000xX[ 15 D+ CILOOXRO*X[ 2353 1]-NEN1*Z^XE 2$ 1560 
[7] 8840802 12.00 
e 
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Name: YMADD - Adds (or substracts) Y months to dates of 
form vymim 


Syntox: Zex YMAnn Y 


Description: 

Vi Array of positive integer elements of form yymm 
where yy represents yeors and mm months 
Integer array of the same shape as X. 
Array X with Y months added to or substracted from 
the values in X. In similarity with X, the 
elements of Z are formakted as yymme 


> +> 


St 


The value(s) of Y should be chosen in a wray that X 
and Z will be in the same century. This function 
applies to a scalar and any array accordingly with 
the primitive function t. 


Example: 
9812 "Méin 3 10 19 
9903 9910 10007 
8012 8410 8808 YMADID 44 "2 748 
8408 8408 8408 


Function listing: 
v ZeX YMALD Y 
[1] aá&ánns (OR SUBSTRACTS) Y MONTHS TO DATES OF FORM 
YYMM 
] Zei00sit+ O 12 r(12471* 100 100 rX)+Y 
] 8840627 14.44 
V 


") 
dee 
on 
+ 


EÈ 
[3 
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Namet YMDANUM ~ Adds (Cor substracts) months to dates of 
form yymmdd 


o Syntax? Zex YMnAnüuM Y 


iption: 


X* Integer array with its elements in form vymmdd 
where yy represents years, mm months, and dd days 

Yt Positive or negative integer scalar or array of 
the same shape as X 

Ze Array X with Y months added to or substracted from 
the dates in X. The elements of Z are formatted as 
yymmdd similarly with X. 


The value(s) of Y should be chosen so that X 
and Z will be in the same century. This function 
needs the auxiliary functions DAYS and nol, 


U-831031 750303 460228 
V YMDADIM 72 
830831 750103 451231 
[eMe (VECLM UOYMIAIIM 3413 
84022 
750803 
460831 
Fe' + 'RESICYCLM 3443)BES1' MONTHS = ' 
(FMTYMD V) ,F,FMTYMI M 
31.10.1983 + 4 MONTHS = 29.02.1984 
03.03.1975 + 5 MONTHS = 03.08.1975 
28.02.1946 + 6 MONTHS = 31.08.1946 


Ho 


st 


v ZeX YMIADUM YiósinsL 
[11 aa&nIS (OR SUBSTRACTS) MONTHS TO DATES OF FORM 
YYMMID 


] 
| fle pX 

] Ze 0 100 r,X 

] L*zrE2:;deneYsS 2ZE157j 

] ACHAYS ZEL JEZEL] hei Y 
| 2023 JeAL ZZ [Xe +AXL. 

] Zeie 0 100 až 

1 n840802 12.10 

e 
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Name: YMIUCHN - Checks if dates in X are of form yymmdd 
syntax: ZeYMDCHR X 


‘es e è 
ON + 


U 
i 
Zei 
(e 
int. 
it 
ict 
je 
US 


$ Numeric array 

$t Scalar 1 if all dates are valid, else O. 
An individual date is valid if it is a positive 
integer of form yymmdd where years yy do not 
exceed 99, months mm 12, and days dd 31. 


Example: 
YMUCHK 991220 010101 


VE200601 281301 300215 

(*YMIICHK V)/'PLEASE TRY AGAIN. ' 
PLEASE TRY AGAIN. 

Up2]e281201 

("YMIICHR. VO/'PLEASE TRY AGAIN. ' 


v ZeYMIUCHN X 


[1] aCHECKS IF DATES IN X ARE OF THE FORM YYMMIUU 
[2] aRETURNS 1 IF ALL DATES ARE VALITI 

[3 1 Xe 0 100 100 T,X 

[4] Z€OXE1312020^X[153 1:100 

[53] ZeZACXL 23 1200 ^XEC 2$ 1512 

[6] ZEZACKXL S$ 1»00^X[ 35$ 1«32 

L7 1 LEASE 

[8] a840802 12.19 


v 
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Name: YMUTO ~ Sequence of consecutive dates from X to Y 


Syntax? zex YMDTO Y 


X* Fositive integer of form yymmdd where yy 
represents years, mm months, and dd days 

Yi Fositive integer of the form of X. 
Y must be larger than X. 

Zi Integer vector containing a sequence of 
consecutive dates from date X to date Y. 
The dates are displayed in form yymmdd, 


If the argument dates are not given in chronological 
order the function returns an empty vector as a 
result. This function needs the auxiliary functions 
FIOTA, YMD2Y, YDh2YMI, and TO. 


P[eVe850104 YMITO 841228 


[eVe841229 YMUTO 850104 

841229 841250 841251 850101 850102 8530103 850104 
FMTYMI V 

29.12.1984 

50.12.1984 

51.12.1984 

01.01.1985 

02,01.19?85 

03.01.1985 

04.01.1985 
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Function listing: 


v Zex YMIITO YgYIDL;YU2;3ULI;U2$; E;EV 
[1] aaSEQUENCE OF CONSECUTIVE DATES FROM X T Y 
2|] aANEEDS YMn2vYvp vYvn2YMU TO PIOTA 
[37] griongei 
Lal Zero 
[5] XYnievMn2Yn X 
Lé YO2¢YMO2YL Y 
[71] 3ER[ YIL’ YI? 
WR UieLlYni-1000 
[L9] U2€el YI2-1000 
[10] RiP Viy? 
[11] ZeYn2YMB You TO YI2 
[12] 90 
Pris] Rif20KR[iOzECU2-UTt1 
[14] EUeceUltiE 
[15] ZCeOi000xEU) FIOTA 365+0=4/EV 
[16] OK$UIlcYI TOC1000xU12t3565t*02z4|V1 
[17] Vee ct+1000KV2) TO VU. 
[18] ZeYn2YMI U1,2,U2 
[19] ERE30 
[20] a840802 12.2 
V 
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Namet YMI2YD - Transforms dates in form yymmdd into form 
yyddd 


Syntax? ZC€YMI2YD X 


Xt Integer array of positive elements. Each element 
must be given in form yymmdd where yy represents 
years, mm months, and dd days. 

Zi Integer vector with dates in X transformed into 
form yyddd where yy represents years and ddd 
days from the beginning of the year. 


ifi 


samplet 
Denes 26(840224415) , 840301 
840225 840226 
840227 840228 
840229 840301 
YMI2YI M 
84056 84057 84058 84059 84060 84061 


Function listing: 


v ZeYMI2YI, XN 

[1] aTRANSFORMS DATES IN FORM YYMMII INTO FORM YYOL 
I! 

[2]  Xe[(Ge100)T,X 

[3] NeO,t\ 31 28 ,10p5p 31 30 

[4] ZC€COL1000xX[L 15 D *XESS TENEXE2;$ D402 XER} 4024 XE 
13] 

[5] 8840802 12,31 

v 
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Name: YMI2YM - Transforms dates in form yymmdd into form 
YYWW 


Syntax: ZeYMIZYW X 


Xt Array with positive integer elements in form 

yymmdd where yy represents years, mm months, and 

dd days a 
Zi: Integer array in which dates in X are transformed 

into form yyww where yy represents years and ww 

the week of the year 


Example: 
[€Me840000-(10000x132 9, *154200xX13 
850215 850415 850613 
860215 860415 860615 
870215 870415 870615 
[]jCNeYMHII2YM M 
0507 8516 8524 0607 8616 8624 8707 8716 98725 
(3 2 ge'YYMMIIS YYWW $ '),TM, 01.17 CPM) PN 
YYMMDI: 850215 850415 850615 
YYWW ot 8507 516 8524 
YYMMDI: 860215 860415 860615 
YYWW ot 8607 8616 8624 
YYMMINS 870215 870415 870615 
vc 1: 8707 8716 8725 
Function Listing: 


v ZeYMI2YW X}NSAZSESZSLEAPSS YI 505010 


[1] eaTRANSFORMS DATES IN FORM YY MMIC INTO FORM YYWW 
[2] groei 

[31 VIe 78 7 

CA)  X*[GP0100)T,X 

[5] NCe€O,*N 31 28 ,1lOpoe 31 30 

[6] De-xE32 J*NEXE22: 1*O2«XE2322^0241| XE 1; ] 

L7] Ee-xp1s-YIL1j 

[87] LEAPS«((41E) 4l- “YILIJ+LE+4 ` 
KAN ZELt7 (YILSI+Et+LEARS-1 

[10] Z*eciooxX[E1$; Def CW+Z-14+7% 294) +7 

[11] 9840802 12,33 


v & 
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Name: YW2YD — First days 
form yyddd 


RO 


yntaxs ZeYW2YD X 


107 


of weeks X (in form yyww) in 


X* Integer array of positive elements. Each element 
mist be given in form yyww where yy represents 
years and ww the week of the year, 

Z* Integer vector returning the first days of weeks 


given in X. The 


elementis of Z are formatted as 


yyddd where yy represents years and ddd the day 


of the year. 


Example} 


[J-V-8600-2015 
8621 8622 8623 8624 8625 

YO2YMD [JjeYu2vYmn v 
86139 86146 86153 86160 86167 
860519 860526 860502 860609 860616 


9490 COCR CEG 0009 0090 (990 9990 0099 0000 occo oeoo otte cece $909 


v ZeYW2YD XE LEAFS YI QIO 
Ci] aFIRST DAYS OF WEEKS X (IN FORM YYWW) IN FORM Y 


YDI 
[2] [II0€1 
[L3] Yle 78 7 


[4] Xe 100 100 r,X 


CS) EeXE1; ]-YI[1] 


[6] LEAFSe-CCAOIE2»4|] -YIE1]D) *LE 4 
C7] ZeL+7 (| YI[2]*E*LEAFS-1 
[8] £€(1000xXL 13 D410 C7xXX[221-Z4«580-Z-2 


[9] a8840802 12.36 
Y 
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Names: ^— INFC ~ Displays prompt X appended by NF. 
Returns the user’ s character input 


syntax: ZC€INPC X 


l'escription: 
X? Character scalar or vector. 
Zi [tisplays prompt X appended by a global variable 


es osoo 


user's character input is returned in Z. 


RP is usually a colon or a question mark. | = 


Case ater 


Example: 
KWR 
Ve INFC'YOUR ANSWER' 
YOUR ANSWER "1 I TAKE IT 
v 
I TAKE IT 


Function listing: 


v ZeINFC X$A 
[11 aallSFLAYS PROMPT X APPENDED BY KP. RETURNS THE 
Lë? J USER'S CHARACTER INPUT 
[21 aNEEIS GLOBAL VARIABLE KF 
[3] Aeemex,' ',NE,' ' 
[4] Zea 
[5] 8840802 14.23 
V 
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Names INFN ~ Displays prompt X appended by KF. 
Executes the user ^$ numeric input 


syntax: ZeINPN X 


Qharacter scalar or vector 
lisplays prompt X appended by a global variable 
KE (character scalar or vector). The user's 


numeric input is executed and returned in Z. 


mM OX 
e+ oF 
cO 


KE is usually a colon or a question mark. 


AS 
Ve INFN'WUHICH YEARS ' 

WHICH YEARS ? 1980417 
V 

1981 1982 1983 1984 1985 1986 1987 


Function listing: 


v ZEINPN X;I 
[17] aanISPLAYS FROMFT X APPENDED BY NE. EXECUTES TH 
E USER'S CHARACTER INFUT 
[2] aNEEUS GLOBAL VARIABLE KP 
[L3] Iepllex,' ',RB,' ' 
[41 3CU !^.Ie rgm/7/ezeio 
[5] Ze 
[6] 38840802 14.25 
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Name: YES - Displays prompt X appended by KE. Returns 
1 if user replies positively 


Syntau* ZeYES X 


Description: 


+? 


Character vector or scalar 

Function displays prompt X appended by a global 
variable KF (character vector or scalar). 

If user replies positively Z will be 1, else O. 
An answer is positive if the first non-blank 
character is y»Y,K,», or K Cor APL ^ or "ix 


X 
7 


^9 


It is easy to include other characters to the ones 
that are considered positive. Just add these 
characters to the sequence within the quotation 
marks in line 4. KF is usually a colon or a question 
mark. 


Example: 


kpe'ti' 
TO CONTINUE WRITE Y : YEAH 
NEXT STEP 


Function listing: 


v ZeYES X 
~~ [i] aallSPLAaYS PROMFT X APFENDED BY KP. RETURNS 1 I 
e F USER REPLIES POSITIVELY | 
2]  aNEEIS GLOBAL VARIABLE KP 
[3] ZeZv,o/Zeptex,' ',KP,' ' 
L4] — Zevs YOR ! S14 ONZIÉE! 1272 
] 8840802 14.26 
v 


APL Special - TMT-Team Oy 


4) 


Name? FNN 


Syntax: Zeck 


The 
the 


Z €T 


PRT 


ITE 


FRTINI 


Li 


[27] 
L3] 
[4] 
[5] 
[L6] 
[7] 
[8] 
[9] 
[11 


[12 
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AME - Names of the functions when X contains the 


henders 


NNAME X 


Character scalar, vector, or matrix 

Character vector or matrix the rows of which 
return the names of the functions whose headers 
are given in X. The corresponding rows of global 
variable TYFE indicate the type of a result 

and the number of arguments. O stands for no 
result and 1 for a result. 


rows of X must not contain extra blanks between 
individual components of each header. 


FNNAME'ZeX UFO Y' 
TYE 


8T 


ase 
ooo 


[eMe CI 40¢0CR' OTE UPON 1 AOT[CR'PRTINIT' 
TB X010 | 
INIT;A 

FNNAME M 


v ZC€FNNAME X ASL FM OIO 
AANAMES OF THE FUNCTIONS WHEN X CONTAINS THE HE 
ALERS 
AGLOBAL TYPE tra RESULT, NUMBER OF ARGUMENTS 
AX MUST NOT CONTAIN EXTRA BLANKS 
oc Ltr(Lcäet Ou4nmrgei 
TYPEt (v/BeX=' ©) C161], (+/L <4 
Pe CCTYPEL $LIATYPEDL $2142) x144+/A\eBR) FCTYFED $2722 
)Xi14B/^NXL eL vX! g) 
L.e€FolL. 
XeF ox 
Mel /Pe+/ aN. 


[10] Xe CZ MPP OCC CZe"lveX) Mp’ '20,X 


] Ze CX uum! ' px 
J 8840802 14.29 
v 
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Name: INFUNCTION - Finds string X in the function Y 


eese 


Syntax: ZC€X INFUNCTION Y 


eo? 


Iescription 


Character string (scalar or vector) 
Function name in a character string (scalar or 


vector) 
Zt Two-row matrix with the first row containing the 


lines and the second row the locations of the 
&tring X in the function Y 


ee? 069 


X 
Y 


If the function is not found or if the string is not 
found in the function, the result is an empty matrix. 
This function uses the auxiliary function INVECTOR. 


T 


_ IO’ INFUNCTION 'INFUNCTION' 
4 RANK ERROR 
INFUNCTIONLS] Z*(eYOTX INVECTOR,YeUCR Y 
^ 


Exo" 


tes 
1 
i 
H 


Function listing: 


€ Zex INFUNCTION Y3OI0 
[1] aaFINIS STRING X IN THE FUNCTION Y 
[21 aZE13] CONTAINS THE LINES AND 2[2;] THE LOCATIO 
NS 
] aNEEIS INUECTOR 
M mnro0eo0 7 
53. Ze€OGpYoTrX INUECTOR,Y€[]JCR. Y 
>) 8840802 08.02 
v 
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Name? INWS ~ Finds string Y in the workspace 


X: Non-negative integer scalar or vector 

Yt Character scalar or vector 

Seeks for the string Y in the workspace. Jiisplays 
the functions, lines and locations. Displays the 
string Y, SEIT characters before Y, and XC23 
characters after Y if Xv.#0. A scalar argument 

X is reshaped to 2px. 

This function uses the auxiliary functions INVECTOR 
and ALFASORT. 


mM 8 10 INWS "DAEA' 
UARA 
0 2 ZcnABA AsL 
PAGEMOL 
24 85 NC XNC CARA FRTUTILGP 
XNC 
3 7 1aNEEIS DABA 
D 9 OXVOEPYFLABACX,L Ox/pY) 
O INWS 'RIOTA' 
DOKU | 
47 43 
RIOTAI 
0 4 
RIOTA2 


Uu 4 
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Function listing: 


[i15] 
[16] 


v X INUS Y;C; I ESESDTO 


aaFINIS STRING Y IN THE WORKSFACE 
anISPLAYS THE FUNCTIONS, LINES AND LOCATIONS 


aFRINTS X[1] CHARACTERS BEFORE Y, THE STRING Y, 
ANID X[2] CHARACTERS AFTER Y (IF Xv.#0) 
aNEEIS INUECTOR ALFASORT 
pioet 
XECXV-FOI/SCHXLL T+ 1 +1 p Yo t*/X€2pX 
qe 3 9 p'INVECTOR ALFASORT INWS i ‘ 


CeALFASORTCA^ZCE$ 192v #00) 4CeCONL 32,7. ' 
R1tf20xi0s AC | 
3R2[i0seDeY INVECTOR Et,FeOCR CE1$ 


C151 

(3 0 THC PE) TII-12,CCCOID ,2 5". "ELAM EE? "ef: 
' 'yLithe. +X] 
R2:9Ri1,00C€ 1 0 4C 
a840802 08.07 
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lame: NEWFNS - Returns functions that contain a time stamp of 
form aYYMMIIHHMM 


Syntax? Z€X NEWFNS Y 


X? Character matrix with names of functions on its 
rows. Can be an empty vector or a scalar, too. 

Yi Positive integer of form yymmddChhmm] where yy 
represents years, mm months, dd days, optional 
hh hours, and optional mm minutes 

Zi Character matrix returning the functions that 
contain a time stamp of form Y as the last comment 
line and the time stamp is 2 Y. If X is a 
character matrix, only the functions given in X 
are checked. Otherwise, all the functions in the 
workspace are examined. 


This function yields another result in a global 
variable TS. TS is an integer vector 

giving the time stamps of the functions returned 
in Ze 


(C 'LIST'INUS NEWFNS ITB’) NEWFNS 840801 
NEWFNS | 
IS 
8408030729 
'" NEWFNS TODAY 
INTRO 
NUMEROT 
FRTINIT 
SIS 
TULOSTA 
IS 


8412031012 8412031250 8412031247 8412031249 8412031308 
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Function 


C 


40M 


© o a e et > o o g. œ 
hoe O ibi ii Lal ii 


Sn 
bami kel Li ini 


- 


[14] 
Liu] 
[167] 
[171] 
[187 
[197] 
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listing: 


v ZEX NEWFNS Y$;X;hN;I;j;I$C 


V 


ARE TURNS FUNCTIONS THAT CONTAIN A TIME STAMF OF 
FORM aYYMMILHHMM 
RAS THE LAST COMMENT LINE AND THE TIME STAMF IS 
2 Y 
aRETURNS A GLOBAL VARIABLE TS WITH THE TIME STA 
HFS | 
aX CONTAINS THE NAMES OF THE FUNCTIONS OR '' FO 
R ALL IN THE WS v 
aY IS OF FORM DATE CYYMMDD) [TIME (HHMM)] | 
Y€1000012^Y | 
LO ppXO/ ' XC[INL. 3! E 

g«keo/1ep1a | | 

ROT 108 Lex /7 AME; SCH Ët 

IRPP iva CEIT MCLIS e n1234567890, ' 

Ce-c10000414C€"Ct ' ae ' )/C 

Ken, (ZeC2YO/1 

TS-TS, Z/C 
R23 PARI CLO+i tex) Tete 

ZEXLK3 J 

Z-ZUCCeA25618[pAVAZE s V 10L1S2Z12J 

ISeTSrc] 
a340803 07.29 


eh 
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